nextrevolution
XLDnaute Occasionnel
Bonjour à tous,
Je cherche comment faire pour compter le nombre de valeur1 et valeur2 dans une colone.
J'ai essayé avec ce code qui marche très bien avec une valeur mais je sais pas trop quoi rajouter comme code pour faire selon deux valeurs.
Pour le moment j'ai fait le code pour Valeur1, le code pour Valeur 2 et j'ai fait une case Totale sur ma feuille excel où je reprend la valeur sur mon UserForm
Est ce qu'il y a possibilité de réduire la procédure?
Je vous remercie pour toutes vos sugestions ou solutions.
Je cherche comment faire pour compter le nombre de valeur1 et valeur2 dans une colone.
Code:
Sub compter1()
Dim Cel As Range, DerLig As Long
Dim n As Long
DerLig = Sheets("présence").Range("Z" & Rows.Count).End(xlUp).Row
For Each Cel In Sheets("présence").Range("Z1:Z" & DerLig)
If Cel.Value = Code.Label46 [COLOR="Red"]Or Code.Label47 [/COLOR]Then
n = n + 1 'compteur
End If
Next
Label41 = n
End Sub
J'ai essayé avec ce code qui marche très bien avec une valeur mais je sais pas trop quoi rajouter comme code pour faire selon deux valeurs.
Pour le moment j'ai fait le code pour Valeur1, le code pour Valeur 2 et j'ai fait une case Totale sur ma feuille excel où je reprend la valeur sur mon UserForm
Est ce qu'il y a possibilité de réduire la procédure?
Je vous remercie pour toutes vos sugestions ou solutions.