Bonjour,
Par formule, je ne saurais trop comment le faire facilement mais par VBA, voici 2 exemples. Il suffit de sélectionner la plage et d’exécuter la macro (ALT+F8 et choisir la macro)
La 1re : éléments ne sont pas triés.
Sub Doublons()
Dim rg As Range, c As Range
Dim Dic
Set Dic = CreateObject("scripting.dictionary")
Set rg = Selection
For Each c In rg
If c.Value <> "" And Not Dic.exists(c.Value) Then Dic.Add c.Value, ""
Next c
Set rg = Application.InputBox("Choisir cellule destination", , , , , , , 8)
rg.Resize(Dic.Count, 1) = Application.Transpose(Dic.keys)
End Sub
La 2e : les éléments sont triés:
Sub DoublonsTri()
Dim rg As Range, c As Range
Dim AL
Set AL = CreateObject("system.collections.arraylist")
Set rg = Selection
For Each c In rg
If c.Value <> "" And Not AL.contains(c.Value) Then AL.Add c.Value
Next c
Set rg = Application.InputBox("Choisir cellule destination", , , , , , , 8)
AL.Sort
rg.Resize(AL.Count, 1) = Application.Transpose(AL.toarray)
End Sub
.
