Supprimer une ligne si doublon dans un champ Résolu/Fermé

Question

Bonjour,

J'ai un tableau avec pas mal de données et tout les jours j'importe d'autres données.
J'aimerais que, quand il y a un doublon, mon code efface toute la ligne où il y a le champ qui comporte le doublon.
Actuellement mon code efface juste la cellule où il y a le doublon.

Sub SupDoublonsColonne()  Set d = CreateObject("Scripting.Dictionary")  Set début = Cells(5, 4) 'C'est dans la colonne D qu'on recherche un doublon  a = Range(début, début.End(xlDown))  For Each c In a    d(c) = ""  Next c  Range(début, début.End(xlDown)).ClearContents  début.Resize(d.Count, 1) = Application.Transpose(d.keys)End Sub

J'ai également essayé de mettre :

Range(début, début.End(xlDown)).ClearContents.EntireRow

Mais cela efface toutes les données qu'il y a dans le tableau.

Quelqu'un saurez comment effacer la ligne où la cellule comporte un doublon.

Frenchie83 · Answer

Bonjour
Ceci efface la ligne en doublon (mais ne la supprime pas)
Sub SupDoublonsColonne()
    Set D = CreateObject("Scripting.Dictionary")
    Set début = Cells(5, 4)
    For Each c In Range(début, début.End(xlDown))
        If Not D.exists(c.Text) Then D(c.Text) = "" Else Range(Cells(c.Row, 1), Cells(c.Row, 16000)).EntireRow.ClearContents
    Next c
End Sub
Cdlt