supprimer les doublons d'une liste

[XanorK]

Bonjour,

J'ai une tres longue liste (plus de 20 000 lignes) bon nombre de doublon.

Pour l'instant tout ce que j'ai pu trouver, c'est une macro qui classe par ordre alphabétique puis comparer les cases 2 a 2 par une boucle du style
for i= DerLigne to 2 step-1
if cells (i-1,2).value = cells (i,2).value then rows(i).delete ... blabla

Bref ca fonctionne mais vu la longueur de la liste, c'est tres lent (d'autant que l'opération est repeter sur plusieurs feuilles)


Je cherche dons une macro ou une formule qui ferait la meme chose plus vite.
Y'a t'il un moyen d'extraire les items d'un "Selection.AutoFilter" par exemple ?

D'avance Merci de votre aide

XanorK

 

[pierrejean]

Re : supprimer les doublons d'une liste

bonjour XanorK

vois si cela te convient

A+

 

[Bebere]

Re : supprimer les doublons d'une liste

bonjour XanorK,le Forum

une 1ère solution

à bientôt

 

[XanorK]

Re : supprimer les doublons d'une liste

vois si cela te convient

Si ca me convient! c'est rien de le dire.
Je viens de passer de 10 min de calcul à quelques secondes !


Mille mercis Pierre-Jean

EDIT : Merci a toi aussi Berbere, ca marche egalement tres bien -quelques secondes de plus que la soluce de pierrejean, quand meme ;-).
Vraiment génial ce forum !

XanorK