Optimiser une suppression de doublons

[Evelynetfrancois]

Bonjour tout le monde !!!
Je viens faire appel à vous pour tenter d optimiser une chasse aux doublons ..*

Pour supprimer les doublons (très nombreux)d'une liste et ne garder chaque fois qu'un seul item , j’utilise ce bout de macro , ensuite je tris pour regrouper les items restants

For i = 1 To [A2500].End(xlUp).Row
If Not Doublons.Exists(Cells(i, 1).Value) Then
Doublons.Add Cells(i, 1).Value, Cells(i, 1).Value
Else
Range(Cells(i, 1), Cells(i, 3)).Clear
End If
Next i

Cela fonctionne avec succès , mais je trouve la procédure longue à s’effectuer compte tenu du nombre à trier ( environ 500 lignes )pour ne garder que 12 items différents (environ)
Auriez-vous de votre coté une procédure plus rapide , plus efficace

je vous remercie d'avance pour toutes vos sujetions , si precieuses

bonne soirée à tous

EetF

(ps je ne suis pas chez moi ce soir donc pas d'inquietude je regarderais et repondrais demain sans faute ...)

 

[Efgé]

Re : Optimiser une suppression de doublons

Bonjour Evelynetfrancois, le fil, le forum,
Il y a le code de J.Boisgontier:

Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("a2", [a65000].End(xlUp))
   mondico(c.Value) = c.Value
Next c
[c2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)

Cordialement

 

[Softmama]

Re : Optimiser une suppression de doublons

Bonjour Evelynetfrancois, Bonjour Efgé,

J'ai fait ça comme ça... Je pense pas que tu puisses trouver plus rapide.

Sub PasDoublons()
    Set Zone = Range("A1:A" & [A65535].End(xlUp).Row)
    Zone.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True
    Columns(1).Delete
End Sub

cf. fichier joint avec 100 items en exemple.

 

[Evelynetfrancois]

Re : Optimiser une suppression de doublons

re efgé ,Softmama
je ne pensais pas que vous reagieriez si rapidement ..........

la version proposé d'efgé semble donner un bon resultat ainsi que l'autre proposée par boisgontier ( jai suivi le lien)merci !
Softmama ! ta proposition est super rapide en effet quasi instantanée !!!!!
je pense la privilegier !!merci à vous deux

trés bonne soirée ........merci !!!

EetF

 

[tallia64]

Re : Optimiser une suppression de doublons

Bonsoir merci à vous tous et toutes pour votre aide. Je vais essayer ces macros.
Bonne soirée Tallia 🙂