Salut les gars
Bien ta macro mDF, cependant, si les listes de base s'allongent, il sera, alors, obligé de modifier la macro à chaque fois.
Alors pourquoi ne pas prévoir ce cas de suite, en rendant variable les plages
des listes, tel que :
Private Sub btnComptage_Click()
Dim TabFeuil1 As Variant
Dim TabCompte As Variant
Dim L1 As Integer
Dim L2 As Integer
Dim i1
Dim i2
i1 = Sheets(1).Range("A2").End(xlDown).Row
i2 = Sheets(2).Range("A2").End(xlDown).Row
TabFeuil1 = Sheets(1).Range("A2" & ":C" & i1).Value
TabCompte = Sheets(2).Range("A2" & ":C" & i2).Value
For L2 = 1 To i2 - 1
For L1 = 1 To i1 - 1
If TabCompte(L2, 1) = TabFeuil1(L1, 3) Then
TabCompte(L2, 3) = TabCompte(L2, 3) + 1
End If
Next L1
Next L2
Sheets(3).Range("A2" & ":C" & i2).ClearContents
Sheets(3).Range("A2" & ":C" & i2).Value = TabCompte
End Sub
le " -1", c'est parce que les listes commencent à la ligne 2
For L2 = 1 To i2 - 1
For L1 = 1 To i1 - 1
Et si les listes sont susceptibles de contenir des lignes vides, remplacer :
i1 = Sheets(1).Range("A2").End(xlDown).Row
i2 = Sheets(2).Range("A2").End(xlDown).Row
Par :
i1 = Sheets(1).Range("A65535").End(xlUp).Row
i2 = Sheets(2).Range("A65535").End(xlUp).Row
@ +
Bonne journée à vous !
Moa