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 :
Mais quelque soit le nombre de cellule dont la valeur est supérieur à 0, la MsgBox répond 1 ?
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
Y'en-a-t-i quelqu'un qui peut m'aider ....
Thank You
Partager