XL 2021 Tri alphabétique dans une cellule

[Baldur]

Bonjour à tou.tes,

Question simple : avec une macro (pas une formule, je ne pense pas), comment trier le contenu d'une cellule par ordre alpha, svp ?

Exemple : on a

A1 Bonjour
A2 Merci
A3 Clafoutis

Et, après exécution de la macro, j'aimerai avoir en B1 BJNOORU, en B2 CEIMR et en C3 ACFILOSTU. Par exemple.

Merci, bon courage 🙂

 

[Dranreb]

Bonsoir.
Dans un module standard :

Option Explicit
Function LettreClas(ByVal Don As String) As String
   Dim TNb(65 To 90) As Byte, A As Byte, P As Byte
   On Error Resume Next
   For P = 1 To Len(Don)
      A = Asc(UCase$(Mid$(Don, P, 1)))
      TNb(A) = TNb(A) + 1
      Next P
   On Error GoTo 0
   For A = 65 To 90
      LettreClas = LettreClas & String$(TNb(A), A)
      Next A
   End Function

En B1, à propager sur 3 lignes :

=LettreClas(A1)

Remarque: ne reconnait pas les lettres accentuées.

 

[mapomme]

Bonsoir à tous 🙂,

Méthode beaucoup plus basique :

Function LettreAZ(ByVal Don As String) As String
Dim t, i&, ech As Boolean, x
   If Don = "" Then Exit Function
   ReDim t(1 To Len(Don))
   For i = 1 To Len(Don): t(i) = UCase(Mid(Don, i, 1)): Next
   Do
      ech = False
      For i = 1 To UBound(t) - 1
         If t(i + 1) < t(i) Then ech = True: x = t(i): t(i) = t(i + 1): t(i + 1) = x
      Next i
   Loop Until Not ech
   LettreAZ = Join(t, "")
End Function

 

[klin89]

Bonsoir à tous 🙂

Via une formule :

=JOINDRE.TEXTE(;;TRIER(STXT(A1;SEQUENCE(NBCAR(A1));1)))

klin89

 

[Baldur]

Merci. Je clos le sujet

 

[Baldur]

En fait, je ne sais pas comment faire pour clore un sujet 😅