Suppression doublons

[thomthom76]

Bonjour à tous 🙂

Ce sujet à dû être abordé à maintes reprises,

Cependant, je n'ai pas trouvé de sujet et de macro permettant de supprimer la deuxième ligne en doublon.

Dans mon cas et sur ma macro, c'est la première ligne qui est effacée.

Auriez-vous une solution pour effacer la deuxième ligne (ou toute les suivantes)?

Voici mon fichier en pièce jointe

Merci beaucoup pour votre aide sur le sujet

 

[WUTED]

Re : Suppression doublons

Bonjour thomthom76,

Voici un fil qui devrait te satisfaire : fonction supprimer doublons.

Bonne journée,
WUTED

 

[thomthom76]

Re : Suppression doublons

Bonjour WUTED et merci pour cette réponse rapide 😀

Je n'arrive cependant pas à adapter la macro à mon fichier, un décallage de ligne apparait

Peux-tu m'éclairer davantage ou me montrer comment rendre la macro adaptée à mon document ?

Je te remercie

 

[WUTED]

Re : Suppression doublons

Re thomthom76,

Voici l'adaptation du code de pierrejean à ton problème :

Sub suppr()
    For n = Sheets("Extraction").Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        For m = n - 1 To 2 Step -1
            If Sheets("Extraction").Range("A" & n) = Sheets("Extraction").Range("A" & m) Then
               Sheets("Extraction").Range("A" & m).EntireRow.Delete
               Sheets("Extraction").Range("A" & n - 1).EntireRow.Delete
            End If
        Next m
    Next n
End Sub

C'est un peu bricolé mais ça fonctionne.

Bonne journée,
WUTED

 

[thomthom76]

Re : Suppression doublons

Merci,

Par contre, ça supprime les deux lignes en doublons avec ta formule WUTED

Ce que je souhaiterais, c'est garder la ligne la plus en haut du doublon

 

[WUTED]

Re : Suppression doublons

Re,

Au temps pour moi, j'avais mal lu, je croyais que tu voulais justement supprimer les deux lignes, modifie juste la macro :

Sub suppr()
    For n = Sheets("Extraction").Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        For m = n - 1 To 2 Step -1
            If Sheets("Extraction").Range("A" & n) = Sheets("Extraction").Range("A" & m) Then
               Sheets("Extraction").Range("A" & n).EntireRow.Delete
            End If
        Next m
    Next n
End Sub

Sans l'avoir testé, cela devrait bien marché.

 

[thomthom76]

Re : Suppression doublons

C'est magique, tu es un pro ! exactement ce que je voulais

Merci encore pour ton aide préciseuse !

A bientot