Supression de doublons dans une plage de données, possible ?
Bonjour à tous,
Voilà j'aurai voulu savoir s'il était possible de supprimer des doublons non pas sur une colonne mais sur une plage (plusieurs lignes et colonnes) ?
Je m'explique : je travail sur un fichier qui, lorsque je lance la macro Importation, va copier une colonne de noms selon un onglet défini par la macro pour la coller dans mon fichier Travail sur un onglet unique. La macro effectue cette operation pour tous les onglets du fichier source et colle les colonnes de noms l'une à côté de l'autre. Chaque colonne du fichier Travail est nommée selon le nom de l'onglet d'où provient la colonne de noms.
Le problem c'est qu'à partir de ces colonnes de noms, je dois en extraire une liste en supprimant tous les doublons. J'où ma question : est-il possible de supprimer les doublons (ClearContents pour ne pas effacer la ligne qui effacerait les noms des autres colonnes) dans une plage de données ?
Merci d'avance !
J'ai relu trois fois ton post sans en piger le sens.
Cependant :
ActiveSheet.Range("A1:C100").RemoveDuplicates Columns:=Array(1,2), Header:=xlYes
Va te virer les lignes en doublon qui ont la colonne 1 et 2 identiques sans compter la première ligne d'entêtes.
Bonjour,
Merci pour ta réponse. Oui effectivement c'est pas évident d'être clair.
J'ai alors créé un fichier pour mieux comprendre le problème.
Le but étant de créer une macro qui supprime tous les prénoms à double pour pouvoir créer une liste de prénoms unique dans une autre colonne.
Voilà merci beaucoup
Alors la solution serait de créer un tableau puis virer les doublons.
Donc avec ton remove duplicats... Tu fais une seule colonne et tu l'utilises.
Oui j'y ai pensé mais comme il faut coller les différentes colonnes les unes après les autres et que le nombre de ligne par colonne peut varier grandement suivant l'importation (mise à jour quotidiennement des listes par société), j'ai peur qu'une fois les données se chevauchent (si le nombre de lignes attribuées à une société était trop petit par rapport au nombre de prénoms dans sa liste).
Je sais pas si c'est très clair et si j'ai bien compris ta proposition...
Merci à toi
pas de chevauchement.. Tu copies par rapport à la derniere d'avant.. tant que c'est inférieur au million de noms..
Ah ça je ne sais pas encore le faire
Non moins que 1mio promis
Est-ce qu'on peut l'automatiser grâce à une macro ?
Merci beaucoup
Sur ton fichier ce serait
Sub toto()
With Sheets("Sheet1")
For i = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column
.Range(Cells(2, i), Cells(.Cells(.Rows.Count, i).End(xlUp).Row, i)).Copy Destination:=Sheets("Sheet2").Range("A" & Sheets("Sheet2").Range("A" & Sheets("Sheet2").Rows.Count).End(xlUp).Row + 1)
Next i
End With
Sheets("Sheet2").Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
End SubGénial ! Merci mille fois !!!!!!!!!!!!!!!