Vba : suppression doublons dans n'importe quelle colonne

Résolu
gbdos Messages postés 59 Date d'inscription mercredi 10 septembre 2008 Statut Membre Dernière intervention 15 janvier 2024 - 12 janv. 2024 à 18:27
gbdos Messages postés 59 Date d'inscription mercredi 10 septembre 2008 Statut Membre Dernière intervention 15 janvier 2024 - 15 janv. 2024 à 13:49

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 22732 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 avril 2024 1 477
13 janv. 2024 à 07:30

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 59 Date d'inscription mercredi 10 septembre 2008 Statut Membre Dernière intervention 15 janvier 2024 2
15 janv. 2024 à 13:49

Merci beaucoup :)

ça fonctionne impeccable.

0