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.