Effacement ligne après comptage

Bonjour,

Voici mon code :

For i = Cells(Rows.Count, "B").End(xlUp).Row To 6 Step -1     
        code = Cells(i, 2).Value  
        If code = code Or code = "aa" Or code = "AA" Then  
            savecode = code 
                nbcode = Application.CountIf(Range("B:B"), savecode)
                    If Cells(i, 2).Value = code Then  
                    Cells(i, 2).EntireRow.Delete 
                    End If
        End If
    Next i

Le but est de faire un comptage pour trouver des valeurs identiques.

Ensuite, une fois compter, je veux garder uniquement 1 seul ligne pour chaques valeurs differentes trouvé, et afficher dans une colonne le nombre des valeurs trouvé.

exemple finale :

Prenons la 1ère ligne => Pour le code "15" j'ai au total "4" inter.

pour la 2ème ligne => Pour le code "16" j'au au total "3" inter

etc....

Je précise aussi, qu'à la base c'est un fichier excel avec beaucoup de ligne.

il n'y a uniquement que les 2 premières colonnes de mon tableau ci-dessus.

Et du coup il peut y avoir 50 lignes avec le "code 15", 126 ligne avec le "code 16", 587 ligne avec le "code 17" et ainsi de suite.

C'est là qu'intervient mon programme pour justement filtrer le nb de tout ces codes.. Je rajoute donc les 3 dernières colonnes.

Bonjour

Un essai à tester. Te convient-il ?

Bye !

ok merci

comment traduit ton ce code :

If dico.exists(tablo(i, 2)) Then

Si le tableau existe déjà dans le dictionnaire ?

tablo(i, 2) => signifie Tableau à 2 dimensions dont i=Ligne et 2=Colonne ?

et ce code :

dico(tablo(i, 2)) = dico(tablo(i, 2)) + 1

l'interet du +1 ?

tablo(i, 2) => signifie Tableau à 2 dimensions dont i=Ligne et 2=Colonne ?

Non,

tablo(i,2) est la valeur de la ligne i (variable) , colonne2 de la variable tableau "tablo"

Il s'agit bien d'un tableau à 2 dimensions puisqu'il y a deux valeurs à l'intérieur des parenthèses : i et 2

If dico.exists(tablo(i, 2)) Then

Cette instruction signifie : Si la valeur de la ligne i et colonne 2 de la variable tableau "tablo" existe dans le dictionnaire "dico" alors...

ok ,

Bye !