c'est assez difficile à expliquer
J'ai une colonnes avec des chiffres dont certains sont en doubles voir plus
Je veux resortir les valeurs pour qu'il n'y ait plus que les valeurs "uniques"
j'ai joint un fichier ca sera peut être plus clair
ps : je ne veux pas d'une forume qui fasse ressortir les doublons car ca prend enormement de temps (j'ai plus de 30 000 lignes)
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("a2", [a65000].End(xlUp))
mondico(c.Value) = c.Value
Next c
[e1].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
0,03 sec pour 16.000 lignes
Code:
Set mondico = CreateObject("Scripting.Dictionary")
a = Range("a2", [a65000].End(xlUp)).Value
For Each c In a
mondico(c) = c
Next c
[c2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
merci de vos réponses la plus adaptée à mon faible niveau est celle des filtres elaborés mais par contre je 'n'arrive pas à le copier coller
celle de condors à l'air pas mal mais je ne comprendre pas comment vous faites
sinon la VBA a l'air bien mas je sais pas les faire