Macro - supprimer les doublons

Bonjour tout le monde,

Je souhaite écrire une macro qui élimine les doublons selon la colonne O.

Merci.

Bonjour frederic_1987 ,

Voici un fichier test à essayer:

Bonjour,

C'est peut-être inutile de le rappeler, mais cette fonction existe déjà dans Excel sans passer par une macro ("Données" --> "Supprimer les doublons"). L'utilisation de cette commande donne via l'enregistreur de macro le code suivant :

ActiveSheet.Range("$A$1:$Z$1000").RemoveDuplicates Columns:=15, Header:=xlYes

Merci pour vos réponses,

Je veux avoir une macro de ce genre :

Sub Macro1()

Columns("A:G").Select

ActiveSheet.Range("$A$1:$G$21").RemoveDuplicates Columns:=1, Header:=xlNo

End Sub

Sauf qu'au lieu de Range("$A$1:$G$21"), je veux exploiter le nom de mon tableau qui est "Cable_consumption"

ActiveSheet.ListObjects("Cable_consumption").Range.RemoveDuplicates Columns:=15, Header:=xlYes

Pedro22 a écrit :

ActiveSheet.ListObjects("Cable_consumption").Range.RemoveDuplicates Columns:=15, Header:=xlYes

Merci infiniment

Bonjour,

A priori la colonne 15 n'a pas lieu d'exister et la procédure devient :

ActiveSheet.ListObjects(1).Range.RemoveDuplicates Columns:=Array(4,7,8), Header:=xlYes