XL 2010 [RESOLU]Compter puis supprimer doublons

cp4

XLDnaute Barbatruc
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
311 720
Messages
2 081 926
Membres
101 841
dernier inscrit
ferid87