VBA-E: Macro de comptage multiple sous condition

Bonjour,

J'essaie de créer une macro permettant pour une colonne variable en longueur, de compter selon des conditions.
Exemple:

Pièce jointe 138907

Si les valeurs en A sont < que 70 alors il additionne le nombre de valeur correspondant à la condition en $B$1
Si les valeurs en A sont 70 <= X < 90 alors il additionne le nombre de valeur correspondant à la condition en $B$2
Si les valeurs en A sont >= à 90 alors il additionne le nombre de valeur correspondant à la condition en $B$3

Merci d'avance...

Bonjour,
Je ne comprends pas la question ou il y a une erreur dans l'exemple.
Files nous ton code en indiquant où tu coinces.
Cordialement

8O

Bein... simplement :
- En $B$1, la formule : =NB.SI(A:A;"<70")
- En $B$2, la formule : =NB.SI(A:A;">=70";A:A;"<90")
- En $B$3, la formule : =NB.SI(A:A;">=90")

Non ?

Visiblement, entre tes spécifications et tes exemples, tu as inverser lignes et colonnes.

Voilà, j'ai mis à jour avec un petit fichier excel et j'ai mieux expliqué dans le texte.
J'espere être plus clair...

Bonjour
Je susi assez d'accord avec phil'oche
sinon comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Activate() For Each cell In Range("a1:a" & [a65000].End(xlUp).Row) If cell < 70 Then c1 = c1 + cell If cell >= 70 And cell < 90 Then c2 = c2 + cell If cell >= 90 Then c3 = c3 + cell Next cell [b1] = c1 [b2] = c2 [b3] = c3 End Sub

---

ou comme cela

Code:

---

1 2 3 4 5

Private Sub Worksheet_Activate() [b1].FormulaR1C1 = "=COUNTIF(C[-1],""<70"")" [b2].FormulaR1C1 = "=COUNTIF(C[-1],"">=70"";A:A;""<90"")" [b3].FormulaR1C1 = "=COUNTIF(C[-1],"">90"")" End Sub

---

Citation:

---

Envoyé par keygen08

Je susi assez d'accord avec phil'oche

---

+1
Il vaut toujours mieux une petite fonction qu'une macro, quand c'est possible (plus souple, plus lisible, plus dynamique).

Le premier fonctionne mais additionne les valeur des cellules au lieu d'effectuer un comptage lorsque la condition est remplie.
Le deuxieme fonctionne mais countif ne prend pas deux conditions??

Citation:

---

Envoyé par keygen08

Bonjour
Je susi assez d'accord avec phil'oche
sinon comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Activate() For Each cell In Range("a1:a" & [a65000].End(xlUp).Row) If cell < 70 Then c1 = c1 + cell If cell >= 70 And cell < 90 Then c2 = c2 + cell If cell >= 90 Then c3 = c3 + cell Next cell [b1] = c1 [b2] = c2 [b3] = c3 End Sub

---

ou comme cela

Code:

---

1 2 3 4 5

Private Sub Worksheet_Activate() [b1].FormulaR1C1 = "=COUNTIF(C[-1],""<70"")" [b2].FormulaR1C1 = "=COUNTIF(C[-1],"">=70"";A:A;""<90"")" [b3].FormulaR1C1 = "=COUNTIF(C[-1],"">90"")" End Sub

---

---

J'ai trouvé la bonne manière de le formuler:

=COUNTIFS(F2:F18;">=70";F2:F18;"<90")

Merci

Citation:

---

Envoyé par acipolla

Le premier fonctionne mais additionne les valeur des cellules au lieu d'effectuer un comptage lorsque la condition est remplie.
Le deuxieme fonctionne mais countif ne prend pas deux conditions??

---

effectivement, je me suis un peu emmeller entre compter les valeurs et faire la somme
la bonne orthographe aurait été

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Activate() For Each cell In Range("a1:a" & [a65000].End(xlUp).Row) If cell < 70 Then c1 = c1 + 1 If cell >= 70 And cell < 90 Then c2 = c2 + 1 If cell >= 90 Then c3 = c3 + 1 Next cell [b1] = c1 [b2] = c2 [b3] = c3 End Sub

---