XL 2010 [RESOLU]Compter puis supprimer doublons

cp4

XLDnaute Accro
Bonsoir:),

Après avoir trier mon tableau suivant la colonne A (Références de transistors). Je voudrais insérer le nombre d'une même référence en colonne B. Puis supprimer les lignes en doublons. J'ai commencé par faire une boucle inversée mais j'avoue que je suis bloqué pour comptabiliser les références.
VB:
Sub comptabiliser_transistors()
    Dim dl As Long, i As Long
    dl = Range("Tableau1").Rows.Count + 1
    Call Tri_Croissant_ColonneA
    With ThisWorkbook.Sheets("Feuil1")
        For i = 2 To dl
            .Cells(i, 2) = 1
    Next i

    For i = dl To 2 Step -1
        If .Cells(i, 1) = .Cells(i, 1).Offset(-1, 0) Then
            .Cells(i, 2).Offset(-1, 0) = .Cells(i, 2) + 1
            .Rows(i).Delete
        End If
    Next i
End With
End Sub
En vous remerciant par avance.

edit: Résolu après une bonne nuit de récupération. Merci.
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
291 500
Messages
1 915 827
Membres
178 988
dernier inscrit
Terrone
Haut Bas