XL 2016 Comment mettre les lettres d'un mot par ordre alphabétique ?

[franic]

Bonjour,
il y aurait-il une formule pour remettre les lettres d'un mot par ordre alphabétique ?
Comme dans le fichier joint.
Merci d 'avance.

 

[patricktoulon]

re
bonsoir a tous

heu oui ok

Sub test()
    Dim chaine$,i&,e&
    chaine = "anticonstitutionnellement"
    For i = 1 To Len(chaine)
        For e = 2 To Len(chaine)
            If Mid(chaine, e, 1) < Mid(chaine, i, 1) Then temp = Mid(chaine, i, 1): Mid(chaine, i, 1) = Mid(chaine, e, 1): Mid(chaine, e, 1) = temp
        Next
    Next
    Debug.Print "> to <  :" & chaine
    Debug.Print "< to >  :"& StrReverse(chaine)
End Sub

 

[Modeste geedee]

bonsour®

re
bonsoir a tous

heu oui ok

heu ??? bha non ...
> to < :autttttsoonnnnnmlliiieeec
< to > :ceeeiiillmnnnnnoostttttua

 

[patricktoulon]

re bonsoir Modeste geedee

Sub test()
    Dim chaine$, i&, e&
    chaine = "anticonstitutionnellement"
    For i = 1 To Len(chaine)
        For e = 1 To Len(chaine)
            If Mid(chaine, e, 1) < Mid(chaine, i, 1) Then temp = Mid(chaine, i, 1): Mid(chaine, i, 1) = Mid(chaine, e, 1): Mid(chaine, e, 1) = temp
        Next
    Next
    Debug.Print "> to <  :" & chaine
    Debug.Print "< to >  :" & StrReverse(chaine)
End Sub

et oui la boucle décalée zappait la première