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.
En vous remerciant par avance.
edit: Résolu après une bonne nuit de récupération. Merci.
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
edit: Résolu après une bonne nuit de récupération. Merci.
Dernière édition: