Discussion :

[acipolla]

Bonjour,

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

Book1.xls

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...

[defluc]

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

[Phil'oche]

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 ?

[Menhir]

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

[acipolla]

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

[keygen08]

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

Code :

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

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 :

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

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

[Menhir]

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).

[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??

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

Code :

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

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 :

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

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

[acipolla]

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

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

Merci

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??

[keygen08]

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

Code :

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

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