Compter les nombres de lignes identiques en vba excel
Résolu
betou34
Messages postés
3
Statut
Membre
-
betou34 Messages postés 3 Statut Membre -
betou34 Messages postés 3 Statut Membre -
J'avoue que je suis encore un profane en matières de programmation vba puisque ça fait depuis peu que je la pratique. Mon problème c'est que j'ai une base de donnée d'une colonne et de 17000 lignes à peu près. Ces 17000 lignes prennent une valeur allant de 1 à 4500 et je voudrais compter le nombre de fois que chaque valeur apparaissent dans ces 17000 lignes et ensuite copier dans une nouvelle feuille. J'ai pu faire le code pour une valeur particulière mais ce n'est pas évident de refaire la même opération 4399 fois!!! Alors je voudrais savoir si c'est possible de généraliser le code sans avoir à répéter l'opération des milliers de fois et en passant si quelqu'un peu m'aider!!!!. Merci d'avance!!!!
A voir également:
- Vba compter le nombre de valeur identique
- Excel compter cellule couleur sans vba - Guide
- Nombre de jours entre deux dates excel - Guide
- Excel compter le nombre de oui ✓ - Forum Excel
- Compter le nombre de oui dans une colonne excel ✓ - Forum Excel
- Retrouver compte le bon coin avec numero de telephone - Forum Réseaux sociaux
Le code extrait du site ci-dessus est :
Sub CompteItems() Set mondico = CreateObject("Scripting.Dictionary") a = Range("a2:a" & [a65000].End(xlUp).Row) ' ADAPTER LA COLONNE For i = LBound(a) To UBound(a) mondico(a(i, 1)) = mondico(a(i, 1)) + 1 Next i With Sheets(2) 'ADAPTER LA FEUILLE D'AFFICHAGE DES RESULTATS .[c2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys) .[d2].Resize(mondico.Count, 1) = Application.Transpose(mondico.items) .[C1].Sort Key1:=[C2], Order1:=xlAscending, Header:=xlYes End With End Sub