Compter valeur identique

lienad

XLDnaute Occasionnel
Bonsoir,

J'utilise nb.si pour compter les valeurs présentes dans une colonne. Vu la quantité de données cela me parait fastidieux. Je fais donc appel à vous, étant à la recherche d'une meilleure méthode.
Cordialement.
 

Pièces jointes

  • Comptage.xls
    16 KB · Affichages: 24
  • Comptage.xls
    16 KB · Affichages: 51
  • Comptage.xls
    16 KB · Affichages: 49

gosselien

XLDnaute Barbatruc
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
 

lienad

XLDnaute Occasionnel
Re : Compter valeur identique

Bonjour,
Je joins la reproduction de l'exemple transmis par Boisgontier avec ce que j'obtiens.
Je ne peux pas valider par Ctrl Maj Entrée, mais par Ctrl Shift Entrée
Dans l'attente de vous lire
 

Pièces jointes

  • Classeur4.xls
    13.5 KB · Affichages: 40
  • Classeur4.xls
    13.5 KB · Affichages: 36

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson