Supprimer doublons colonne par colonne

Résolu
takrourim -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Sur excel 2010, je veux supprimer les doublons colonne par colonne , jusqu'ici tout va bien, je fais l'habituel données / supprimer les doublons.
Le problème est que j'ai 10,000 colonnes et je ne peux pas faire ça 1 par 1.

Avez vous la solution ?

Merci

A voir également:

4 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Bonjour,

excusez l'incruste
essaies
Sub supp_doublons()
Dim Fin As Integer, Lig As Integer, Col As Integer
Fin = Rows(1).Find("*", , , , , xlPrevious).Column
Lig = Cells.Find("*", , , , , xlPrevious).Row
With Application
.DisplayAlerts = False
.ScreenUpdating = False
For Col = 1 To Fin
ActiveSheet.Range(Cells(1, Col), Cells(Lig, Fin)).RemoveDuplicates Columns:=1
Next
.DisplayAlerts = False
End With
End Sub


Michel
1