Re : Compter valeur identique
Bonjour le forum, lienad
essaye ceci:
Sub CompterVilles()
Set MonDico = CreateObject("Scripting.Dictionary")
a = Range("b2:b" & [B65000].End(xlUp).Row).Value
b = Range("a2:b" & [a65000].End(xlUp).Row).Value
For Each C In a
MonDico(C) = 1
Next
[H2].Resize(MonDico.Count) = Application.Transpose(MonDico.keys)
For Each v In MonDico.keys
Set mondico2 = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(a)
If a(i, 1) = v Then mondico2(b(i, 1)) = 1
Next i
[I2].Offset(k, 0) = mondico2.Count
k = k + 1
Next v
End Sub