Pb de classement

bonjour,

Dans le fichier joint, il y a 2116 lignes de désignations. Chacune ont un code.

le but est que lorsque j'appui sur le Bouton, cela me les classes et me les comptes aussi, et place le résultat dans Nb d'intervention.

le soucis est qu'une fois classé, les désignations ne correspondent plus forcement au code d'origine ? c'est embêtant...

mon fichier:

Une solution de feignasse pressée

:

Bonjour à tous,

Et un petit TCD ....

Bonjour à tous,

un essai macro:

Sub LaMacro()
Dim Tablo, Dico As Object, i As Long, TT,T
Tablo = Range("A5").CurrentRegion
Set Dico = CreateObject("Scripting.Dictionary")

    For i = 2 To UBound(Tablo, 1)
        clé = Tablo(i, 1) & "|" & Tablo(i, 2)
        Dico(clé) = Dico(clé) + 1
    Next i

    Range("A5").CurrentRegion.Offset(1, 0).ClearContents 'Efface la ligne

    ReDim TT(1 To Dico.Count, 1 To 3)
    i = 0
    For Each clé In Dico.keys
        i = i + 1
        T = Split(clé, "|")
        TT(i, 1) = T(0)
        TT(i, 2) = T(1)
        TT(i, 3) = Dico(clé)
    Next

    Range("A6").Resize(UBound(TT, 1), UBound(TT, 2)) = TT
End Sub

Ok Merci pour les idées