VBA - Suppression doublon ligne

Bonjour à tous,

Voila quelques heures, jour ... que j'essaye de trouver une solution à mon problème, notamment via des formules NB.SI et NB.SI.ENS mais rien à faire j'y arrive pas.

Du coup je pense que la meilleure solution reste le VBA ^^

J'explique mon pb :

J'ai un fichier excel contenant quelques milliers de lignes

• Colonne A : Nom de la société
• Colonne B : Email 1 de la société
• Colonne C : Email 2 de la société
• Colonne D : Email 3 de la société
• Colonne E : Email 4 de la société
• Colonne F : Email 5 de la société
• Colonne G : Email 6 de la société
• Colonne H : Email 7 de la société

Cependant, j'ai dans certaines lignes plusieurs fois le même email, je voudrai pouvoir supprimer ces doublons et garder uniquement les emails unique par ligne.

Une solution ?

Je vous mets en PJ un fichier exemple

Merci d'avance

Bonjour,

La meilleure solution reste le filtre dans Données, Avancé :

Il faut cocher la case Extraction sans doublon

Bonjour,

Je n'arrive pas à supprimer mes doublons avec cette manipulation, en sélectionnant mes lignes il ne se passe rien...

Voici une procédure qui surligne les doublons :

Sub ColoriageDoublons()
  For i = 2 To 7 'les lignes
    Set champ = Cells(i, 1).Resize(, 8)
    For c = 2 To 8 ' colonnes B à H
      If Cells(i, c).Value <> "" Then
        If Application.CountIf(champ, Cells(i, c)) > 1 Then Cells(i, c).Interior.ColorIndex = 36
      End If
    Next c
  Next i
End Sub

Du coup, tu peux tester celle-ci :

Sub SupprDoublons()
  For i = 2 To 7 'les lignes
    Set champ = Cells(i, 1).Resize(, 8)
    For c = 8 To 2 Step -1 ' colonnes H à B
      If Cells(i, c).Value <> "" Then
        If Application.CountIf(champ, Cells(i, c)) > 1 Then Cells(i, c) = ""
      End If
    Next c
  Next i
End Sub

merci bcp ça fonctionne