Compter valeur identique

[lienad]

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.

 

[gosselien]

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

 

[BOISGONTIER]

Re : Compter valeur identique

Bonsoir,

Avec une fonction (maj auto)

ou un TCD

Les tableaux croisés dynamiques
http://boisgontierjacques.free.fr/fichiers/Tabcrois/Tabcrois.xls
Les tableaux croisés dynamiques 2007

JB

 

[lienad]

Re : Compter valeur identique

Bonjour,

La fonction maj auto ne fonctionne pas.
Faut - il des colonnes contigues, une titre, une ligne vide au dessus ....
Dans l'attente

 

[BOISGONTIER]

Re : Compter valeur identique

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Cellules/Fonction_Compte.xls

JB

 

[gosselien]

Re : Compter valeur identique

Bonjour,

La fonction maj auto ne fonctionne pas.
Faut - il des colonnes contigues, une titre, une ligne vide au dessus ....
Dans l'attente

Un simple clic et ça se fait en une fraction de seconde...

 

[lienad]

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

 

[tototiti2008]

Re : Compter valeur identique

Bonjour lienad,

le code VBA ne doit pas être placé dans le code de la feuille mais dans un module
Alt+F11
Insertion - Module
Colle le code

Je ne peux pas valider par Ctrl Maj Entrée, mais par Ctrl Shift Entrée

Maj = Shift
français / anglais