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 : Sélectionner tout - Visualiser dans une fenêtre à part
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