Effacer doublons

[Kouks]

Bonjour tout le monde,

y-a t-il une formule ou une macro qui permettrait d'effacer les doublons dans une ilste?

Merci d'avance

 

[porcinet82]

Re : Effacer doublons

Salut,

Voici un excellent code de mon ami Hervé qui permet d'extraire dans une seconde colonne la liste sans doublons en passant par une collection (tes données sont dans la colonne A et la liste sans doublons en colonne B) :

Public Sub toto()
Dim data
Dim tablo, i As Integer

Set data = CreateObject("Scripting.Dictionary")
tablo = Range("A1:A" & Range("A65536").End(xlUp).Row)
For i = 1 To UBound(tablo)
    data.Item(tablo(i, 1)) = data.Item(tablo(i, 1))
Next i
Range("B1", Cells(data.Count, "B")) = Application.Transpose(data.Keys)
End Sub

@+

 

[Kouks]

Re : Effacer doublons

Merci cher Porcenet82 tu viens une fois de plus a mon secours