Encore une histoire de doublons..

[xscream]

Bonjour,

J'ai une liste, tel que :

VM5
VM5
VM6
VM7

Je souhaite que cette liste soit sans doublons de manière à ce que n'apparaisse uniquement les valeurs uniques, soit une liste qui serait :

VM6
VM7

et non pas :

VM5
VM6
VM7

La question a peut-être déjà été posé un jour mais les applications ne sont pas toujours très clairs, alors je me permet de vous reposer la question simplement.

Merci d'avance pour votre aide!

 

[BOISGONTIER]

Re : Encore une histoire de doublons..

Bonjour,

Liste des doublons

Set MonDico = CreateObject("Scripting.Dictionary")
Set MonDico2 = CreateObject("Scripting.Dictionary")
For Each c In Range([a2], [a65000].End(xlUp))
  If MonDico.exists(c.Value) Then MonDico2.Item(c.Value) = c.Value
  MonDico.Item(c.Value) = c.Value
Next c
If Mondico2.Count>0 Then [E2].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.items)

Liste des non doublons:

Set mondico = CreateObject("Scripting.Dictionary")
 For Each c In Range("a2", [a65000].End(xlUp))
     mondico.Item(c.Value) = mondico.Item(c.Value) + 1
Next c
Set mondico2 = CreateObject("Scripting.Dictionary")
For Each c In mondico.keys
     If mondico(c) = 1 Then mondico2.Add c, 1
Next c
If mondico2.Count>0 Then [c2].Resize(mondico2.Count, 1) = Application.Transpose(mondico2.keys)

JB
Formation Excel VBA JB

 

[Hydris]

Re : Encore une histoire de doublons..

Je cherche exactement la même chose