Discussion :

[iIncoming]

Voir le 4ème message.

[iIncoming]

Bonjour,

Je vois que ce genre de choses semblent compliquées… Peut-être que mon affaire ne vous semble pas clair ?
N'hésitez pas à me dire, je galère vraiment…

Merci.

[kesimon63]

J'avoue que ça manque de clarté...
Un fichier excel à joindre serait surement plus clair que des copies d'écran, si possible.

[iIncoming]

Bien, je vais essayer de la refaire plus simple.

FEUILLE1 : Les cellules ci-dessous peuvent contenir le texte suivant "X" ou "Y" ou "Z" :

- Cellules A1 à A30,
- Cellules C1 à C30,
- Cellules K1 à K30,
- etc.

Ma question est :

- Si je me place sur FEUILLE2 en A100, C100 et K100,
- Comment puis-je savoir combien de X, Y ou Z se trouvent dans les plages ci-dessus ?

Exemple :

- Je me place en A100, et je rentre cette formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=JE_CHERCHE_TOUS_LES_X(dans_plages A1:A30 + C1:C30 + K1:K30) ET AFFICHE_OCCURENCES_TROUVÉES_EN_CHIFFRE

- Normalement ça me donne le nombre d'occurrences "X" que contiennent ces cellules additionnées…
- Et je répète l'opération pour les Y ou Z.

Je pensais à NB.SI mais je ne m'en sors pas...

[casefayere]

Bonsoir,
pas sur d'avoir compris, mais à tester et adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub cherche_x()
Dim a As Long
a = WorksheetFunction.CountIf(Range("A1:A30"), "x") + WorksheetFunction.CountIf(Range("C1:C30"), "x") + WorksheetFunction.CountIf(Range("K1:K30"), "x")
Range("A100") = a
End Sub

[keygen08]

Bonjour,
au choix

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
NB.SI(A1:C2;"x")
 
=NB.SI(A1:A2;"x")+NB.SI(C1:C2;"x")+NB.SI(E1:E2;"x")
 
=CONCATENER(NB.SI(A1:C2;"x");"x  ";NB.SI(A1:C2;"y");"y  ";NB.SI(A1:C2;"z");"z  ")

et plus si affinité

[Qwazerty]

Salut
[Edit] Grillé [/Edit]

Si j'ai bien compris, à mon avis tu as été un cran trop loin dans le forum lorsque tu es venu dans la section VBa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI(Feuil1!A1:A30;"X")

++
Qwaz

[iIncoming]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub SeekWhat()
    Dim a As Long
        a = WorksheetFunction.CountIf(Range("Q12:AU12"), "?") + WorksheetFunction.CountIf(Range("Q52:AU52"), "?") + WorksheetFunction.CountIf(Range("Q92:AU92"), "?")
        Range("W11") = a
End Sub

Ceci est exactement ce que je recherche.
En revanche, ce code cherche dans la feuille actuelle.

Comment le faire chercher dans la feuille "DRHID locale" et afficher les résultat en W11 dans la feuille locale "Charge d'emploi" ?

[casefayere]

Bonjour,

simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub SeekWhat()
Dim a As Long
With Sheets("DRHID locale")
'ne pas oublier le point devant les "range"
  a = WorksheetFunction.CountIf(.Range("Q12:AU12"), "?") + WorksheetFunction.CountIf(.Range("Q52:AU52"), "?") + WorksheetFunction.CountIf(.Range("Q92:AU92"), "?")
End With
Sheets("Charge d'emploi").Range("W11") = a
End Sub