comptage de cellules

[Reeaz]

Bonjour, j'ai crée la macro suivante:


Sub test()

fin = Range("E2").End(xlDown).Row
lim = 0
For i = 2 To fin
If Cells(i, 5).Value > 0.01 And Cells(i, 5).Value < 0.02 Then lim = lim + Cells(i, 4).Value
Next i
Range("H10").Value = lim

End sub

cette proc me fait la somme sur les cellules de la collonne 4 tant que une cond est respectée ds la coll 5.

Cette proc marche, mais j'aimerais y ajouter qquchose de plus:
j'aimerais que la macro me retourne également le nombre de cellules qui ont satisfait à la condition:
Cells(i, 5).Value > 0.01 And Cells(i, 5).Value < 0.02
ds une msgbox ou ds une cell qqconque de la spreadsheet.
Je pense qu'il faut utiliser un "count." mais je n'arrive pas à l'inclure ds ma boucle.

Si qqun avait une idée ce serait cool!!
Merci

 

[Minick]

Salut,

Ajoute simplement un compteur

Sub test()

fin = Range("E2").End(xlDown).Row
lim = 0
Compteur=0

For i = 2 To fin
If Cells(i, 5).Value > 0.01 And Cells(i, 5).Value < 0.02 Then
lim = lim + Cells(i, 4).Value
Compteur=Compteur + 1
End If
Next i
Range("H10").Value = lim
Range("H11")=Compteur
End sub

@+

Minick

 

[Bruno]

Cells(i, 5).Value > 0.01 And Cells(i, 5).Value < 0.02

Pourquoi tu ne crées pas un compteur "p" style:
p=0

puis tes conditions:
if Cells(i, 5).Value > 0.01 then
if Cells(i, 5).Value < 0.02 then
p=p+1
end if
end if

Puis tu imprimes le compteur p dans une cellule de retour (en A1 par ex):
cells(1,1)=p

 

[Reeaz]

Merci beaucoup à tous les deux, ca marche!!
Bonne journée.

Reeaz