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