Compteur avec 2 valeurs

[nextrevolution]

Bonjour à tous,

Je cherche comment faire pour compter le nombre de valeur1 et valeur2 dans une colone.

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.

 

[Pierrot93]

Re : Compteur avec 2 valeurs

Bonjour,

modifie peut être ton test comme suit, si j'ai bien compris :

  If Cel.Value = Code.Label46 Or Cel.Value = Code.Label47 Then
    n = n + 1 'compteur
  End If

bonne fin d'après midi
@+

 

[Catrice]

Re : Compteur avec 2 valeurs

Bonjour,

Tu peux essayer ceci :

Sub compter1()
Set MaZone = Sheets("présence").Range("Z1:" & Sheets("présence").Range("Z" & Rows.Count).End(xlUp).Address)
Label41 = Application.CountIf(MaZone, Code.Label46) + Application.CountIf(MaZone, Code.Label47)
End Sub

Edit : bonjour Pierrot93

 

[nextrevolution]

Re : Compteur avec 2 valeurs

Ca fonctionne, merci beaucoup