XL 2013 Supprimer les lignes en double

driss Kor · 2 Août 2021

Bonjour,

Je travail sur un fichier avec plusieurs lignes "+1000" et plusieurs colonnes "23", je sollicite votre aide pour pouvoir supprimer les lignes qui se répètent par VBA.
on peut trouver sur la même colonne A par exemple des doublons mais pas sur la colonne B, je veux supprimer uniquement les lignes avec les data qui se répète sur toutes les colonnes.

Merci pour votre Aide.

vgendron · 2 Août 2021

Hello
un début de réponse en PJ: clique sur le bouton

vgendron · 2 Août 2021

PS: cela suppose que ton tableau est déjà trié et que les lignes en doublons sont bien l'une sous l'autre

driss Kor · 2 Août 2021

Bonjour Vgendron,

Merci beaucoup pour ton aide, le tableau n'est pas trié, mais je vais le trié avant d'exécuter la macro.

Merci pour votre support.

mapomme · 2 Août 2021

Bonsoir à tous,

Un autre essai (tableau trié ou non)

VB:

Sub SansDoublon()
   With Sheets("Feuil1")
      If .FilterMode Then .ShowAllData
      Intersect(.Columns(1).Resize(, 10), .Range("a1").CurrentRegion).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), Header:=xlYes
   End With
End Sub

XL 2013 Supprimer les lignes en double

driss Kor

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

driss Kor

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Discussions similaires