Compter Champ identiques

Bonjour !

J'aimerais compter le nombre de champs identique à partir de la colone 1 (A) et du numéro de ligne " i ".

En faite, je tris par ordre alphabétique ma colone, puis j'aimerais compter le nombre de doublons pour chaque ligne, j'utilise une boucle qui par de i=1 à NOMBRE LIGNE TOTAL et j'aimerais supprimer les doublons de tout mon tableau.

Voici se que j'ai commencé à faire :

Private Sub CommandButton1_Click()
Dim iNbItems, i, i2 As Integer

iNbItems = ActiveSheet.UsedRange.Rows.Count
' On tri la liste par ordre alphabétique
range("A1:C" & iNbItems).Sort Key1:=range("A1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

For i = 1 To iNbItems
    If Cells(i + 1, 1) = Cells(i, 1) Then
        range("A" & i).Select
        Selection.EntireRow.Delete
    End If
 Next  
End

Le soucis c'est que mon code ne fonctionne pas du premier coup, a cose du NEXT...

J'aimerais donc, compter le nombre de ligne identique à partir de ma ligne i Et ensuite, supprimer le nombre de ligne en conséquence...

Merci !

Bonjour,

Je te conseille de faire une recherche sur le site avec le mot "doublon" ou "doublons"

avec doublons il y a pas moins de 220 réponses, peut-etre y trouveras tu ton bonheur.

et notemment celle-ci avec la macro complementaire Mdf doublons

https://www.excel-pratique.com/forum/viewtopic.php?t=1730&highlight=mdf+doublons

Cordialement