Suppression auto de donnée (sauf la première)

[BAT]

Re-bonjour à tous,

J'avoue le titre est un peu barbarre ! L'idée c'est que j'ai un tableau avec en collone H des données triées par ordre croissant. Je souhaite une macro qui va m'effacer (et non me supprimer) les doublons en en laissant que la première occurence. PAr exemple :

-----H------
Petit
Petit
Petit
Petit
Grand
Grand
Grand
Grand
Géant
Minus
Minus
Minus
Rikiki

Deviendrait
-----H------
Petit



Grand



Géant
Minus


Rikiki

______________________FIN

Voilà ! J'espère que vous aurez une solution à ce problème bien épineux !
Par cotre j'aurai la même opération à réaliser sur plusieurs colonnes donc je pense que pour limiter le temps de traîtement de la macro il faudrait tester la plage que la macro testera. Je crois avoir déjà vu un code avec Selection.End(xlDown).Select pour borner la plage à tester

Merci à tous pour votre coup de pouce

 

[skoobi]

Re : Suppression auto de donnée (sauf la première)

Bonjour,

une proposition en supposant que tu as 10 colonnes commençant par la colonne A et que tes données débute à la ligne 1:

Sub doublon()
For colonne = 1 To 10
   derlig = Cells(65536, colonne).End(xlUp).Row
   For lig = derlig To 2 Step -1
      If Cells(lig - 1, colonne) = Cells(lig, colonne) Then Cells(lig, colonne).ClearContents
   Next
Next
End Sub

 

[BAT]

Re : Suppression auto de donnée (sauf la première)

Bonjour Skoobi et le forum,

Merci beaucoup de cette réponse qui convient à 200 % !

A bientôt