Discussion :

[Squelet]

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

[Squelet]

Je suis vraiment désolé d'avoir posté sur ce sujet, sans avoir vérifié avant la sintaxe de mon code !!!
Il fallait juste remplacer la virgule par un double point, dans la définition de ma plage.
Avec toutes mes excuses.
Je vous souhaite une agréable après-midi.

[SfJ5Rpw8]

pas besoin de VBA tu peu faire cela dans le tableau excel avec une formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI(L4:L203;">0")

fonction NB.SI

que tu peu utiliser en VBA.. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgBox WorksheetFunction.CountIf(range("L3:L104"),">0")