Vba : suppression doublons dans n'importe quelle colonne

Résolu
gbdos Messages postés 72 Statut Membre -  
gbdos Messages postés 72 Statut Membre -

Bonjour à tous, 

Je travaille actuellement sur une macro pour mettre en forme et supprimer les doublons d'un fichier de données. 

J'ai rapatrié toutes mes données dans un seul onglet. Je souhaite supprimer les doublons colonne par colonne. 

J'ai bien mon code pour supprimer dans la colonne A et ma boucle pour passer d'une colonne à la suivante, jusqu'à la dernière colonne ayant des données. 

Mais là maintenant je ne sais pas comment modifier le code pour supprimer, pour qu'il prenne la bonne colonne dans les paramètres du code:

Code pour suppression doublon dans colonne A :

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

Comment je peux changer ce code pour qu'il prenne la plage avec la colonne suivante, sans écrire en dur B à la place de A ?

Si quelqu'un a une idée :), merci d'avance. 


Android / Chrome 120.0.0.0

1 réponse

yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 

bonjour, une suggestion

dim col as long
col=1
ActiveSheet.Range(ActiveSheet.Cells(1,col),ActiveSheet.Cells(2000,col)). _
     RemoveDuplicates Columns:=1, Header:=xlYes
1
gbdos Messages postés 72 Statut Membre 2
 

Merci beaucoup :)

ça fonctionne impeccable.

0