[EXCEL][VBA] Compter les cellules non-vides
Bonjour à tous,
Après recherche dans les topics existants, je n'ai rien trouver qui puisse résoudre mon petit problème que vous avez sûrement déjà traité !
Je cherche à compter le nb de cellules dont la valeur est supérieur à 0, dans la plage "L4:L203"
J'ai tenté ça :
Code:
1 2 3 4 5 6 7 8 9
| Sub Trierparnote()
Dim cellule As Range
Dim Compteur As Double
Compteur = 0
For Each cellule In Range("L4,L203")
If cellule.Value > 0 Then Compteur = Compteur + 1
Next
MsgBox Compteur
End Sub |
Mais quelque soit le nombre de cellule dont la valeur est supérieur à 0, la MsgBox répond 1 ?
Y'en-a-t-i quelqu'un qui peut m'aider ....
Thank You