dénombrer et lister

[moi244]

Bonjour à tous,
Voici un exemple simple, je veux lister les différents types dans la colonne A et le nombre de chaque type trouvé:
x
x
y
x
z
y
t
t

résultat:ici il ya:
x:3
u:2
z:1
t:2
mais vous comprenez que syr une colonne de 25000 lignes et xxx types, ça devien pénible de faire des filtres et compter:
merci.

[jawed]

Bonsoir moi244
en créant une table avec toute tes références tu peut utiliser la fonction Nb.Si et tu est sous 2007 tu peut utiliser la fonction Nb.Si.Ens
Cordialement

[moi244]

oui mai nb.si c'est une fonction qui doit faire référence à une cellule (critère).
Avec un code VBA, il va lister tous les différents types dans la colonne A, et dénombrer ensuite.
Merci.

[mercatog]

Fais un Tableau Croisé Dynamique et sans vba.

[moi244]

C'est juste que je suis un débutant en programmation, alors j'essaie de voir comment je pourrais faire ça en VBA. Je suis sur qu'il ya un expert qui pourrait me donner un coup de main.

[Ormonth]

Bonsoir,

Vu ainsi, tu as raison, on va pouvoir jouer à te donner des approches différentes

Toutes versions :

Dans un premier temps, tu utilises l'enregistreur de macros en faisant un filtre avancé pour extraire les valeurs uniques de ta liste et les coller à un autre emplacement (cf aide Excel si besoin).

Tu nommes la liste des valeurs uniques "MaPlage" ou tu adaptes...

Tu lances ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Gogo()
Dim cell As Range
Dim dblNombre As Double
Dim I As Long
 
I = 1
For Each cell In Range("MaPlage") 'parcourt la collection des cellules de la plage
   'sur l'ensemble de la colonne visée A ici...
   dblNombre = WorksheetFunction.CountIf(Worksheets(1).Columns("A:A"), cell.Value) 'utilise NBSI à travers le VBA
   Cells(I, 4) = cell.Value 'écrit les valeurs
   Cells(I, 5) = dblNombre
   I = I + 1
Next cell
End Sub

Résultat : OrmonthDatawx1.jpg

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Ormonth]

Bonjour,

Vois aussi ce fil récent...

http://www.developpez.net/forums/d11...tence-colonne/

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier