XL 2019 Chiffre aligner sans doublon

patricktoulon à dit:

bonsoir
sinon avec vba
sans doublons dans l'ordre sans dico ou collection

VB:

Sub test()    'horizontal
    Dim rng As Range, tableau
    Set rng = Range("A1:A11")
    tableau = NoDoubleInOrder(rng)
    [c6].Resize(, UBound(tableau) + 1) = tableau
End Sub
'
Sub test2()    'vertical
    Dim rng As Range, tableau
    Set rng = Range("A1:A11")
    tableau = NoDoubleInOrder(rng)
    [c6].Resize(UBound(tableau) + 1, 1) = Application.Transpose(tableau)
End Sub    '
'
'
Function NoDoubleInOrder(rng)
    Dim original, MyArray(), I&
    original = Application.Transpose(rng.Value)
    ReDim MyArray(1 To Application.Max(rng))
    For I = 1 To UBound(original)
        If original(I) <> "" Then MyArray(Val(original(I))) = original(I)
    Next
    NoDoubleInOrder = Split(Application.Trim(Join(MyArray)), " ")
End Function

Cliquez pour agrandir...

job75 à dit:

Bonjour Guismo33, le forum,

La solution utilisée par patricktoulon donne forcément un résultat trié.

Si l'on veut conserver l'ordre initial utiliser la solution de mon post #9 avec le Dictionary.

Bonne journée.

Cliquez pour agrandir...