conditions en excel.

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