XL 2019 Chiffre aligner sans doublon

[Guismo33]

Bonjour a tous.

je recherche une formule sans doublons et qui aligne un certain nombre de chiffres:
dans cette exemple je voudrais q'en I2:T2 il s'affiche ces nombres : 8 13 7 1 11 14 16
car dans la colonne dite en H j'ai plusieurs nombre avec des vides et doublons.
formules Vba ou simplifier, merci à vous


bien à vous

 

[Guismo33]

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

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

Bonjour Patricktoulon,

trés bonne VBA , mais es-ce possible de l'avoir avec le même ordre que la colonnes ?
merci , bonne journée

 

[job75]

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.

 

[Guismo33]

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.

Bonjour Job75

oui , mais avec celle de patricktoulon il y a les 2 sens car je pensais a un autre Vba
que j'ai fait et pour ma part j'ai donner l'exemple en A1 mais en faite cela commence en G7:G33
a mettre en J2 pourrais tu modifier ta VBA stp, car je cherche mais je ne trouve pas.

merci à toi