Salut
Dim DerniereLigne As Long
Public Function PremiereLigneVide(Colonne As Integer) As Long
PremiereLigneVide = Columns(Colonne).Find("", , , , xlByRows, xlNext).Row
DerniereLigne = PremiereLigneVide - 1
End Function
Private Sub CommandButton1_Click()
Dim intColonne As Integer
Dim NbCritère1 As Integer
Dim NbCritère2 As Integer
Sheets("Feuil1").Select
PremiereLigneVide (1)
NbCritere1 = 0
NbCritere2 = 0
For i = 1 To DerniereLigne
'Critère1: CGI, RTT, DT
If Range("A" & i).Value = "CGI" And Range("B" & i).Value = "RTT" And Range("C" & i).Value = "DT" Then
NbCritere1 = NbCritere1 + 1
End If
'Critère2: DCA , APF, HP
If Range("A" & i).Value = "DCA" And Range("B" & i).Value = "APF" And Range("C" & i).Value = "HP" Then
NbCritere2 = NbCritere2 + 1
End If
Next i
MsgBox ("Critère1 : " & NbCritere1 & " fois" & Chr(10) & "Critère2 : " & NbCritere2 & " fois")
End Sub
Drikce 06