1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Dim str() As String
Dim i As Integer
Dim Ligne As Long
Dim rg As Range
str() = Split("A,B,B,B,A,A,A,A,C,C,A,B,B", ",")
For i = 0 To UBound(str)
Set rg = Range("A:A").Find(str(i))
If rg Is Nothing Then
'Ajout de la référence dans la feuille
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne).Value = str(i)
Range("B" & Ligne).Value = Range("B" & Ligne).Value + 1
Else
'Ajout 1 au compteur
Range("B" & rg.Row).Value = Range("B" & rg.Row).Value + 1
End If
Next i |
Partager