XL 2021 trier dans une cellule

[bobafric]

Bonjour à tous
Dans une cellule excel trier une suite de nombre de a à z

 

[sylvanu]

Bonsoir Bobafric,
Un essai en PJ.

 

[djidji59430]

Bonjour à tous,

Une autre façon :

 

[mapomme]

Bonsoir à tous,

Via une fonction personnalisée appelée : TrierChaine. Voir formule en C2 à recopier vers le bas.
Le code est dans Module1 :

Function TrierChaine$(ByVal x$)
Dim t, s, i&, n&, aux, ech As Boolean
   t = Split(Application.Trim(x)): ReDim r(0 To UBound(t) + 1): n = -1
   For i = 0 To UBound(t)
      If IsNumeric(t(i)) Then n = n + 1: r(n) = Val(t(i))
   Next i
   Do
      ech = False
      For i = 0 To n - 1
         If r(i) > r(i + 1) Then ech = True: aux = r(i): r(i) = r(i + 1): r(i + 1) = aux
      Next i
   Loop Until Not ech
   TrierChaine = Trim(Join(r))
End Function

 

[bobafric]

Merci Sylvanu je n'ai pas bien compris mais en faisant des copier coller ça fonctionne