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.

 

[Staple1600]

Bonjour le fil

Glané dans mes archives de mai 2003
Une fonction VBA personnalisée (dont la paternité n'est pas mienne)

Function SortCharacters(theString As String) As String
    Dim currentChar As String
    Dim sourceNum As Integer
    Dim destNum As Integer
    For sourceNum = 1 To Len(theString)
        currentChar = Mid(theString, sourceNum, 1)
        If sourceNum = 1 Then
            SortCharacters = currentChar
        Else
            destNum = 1
            While destNum <= Len(SortCharacters) And currentChar > Mid(SortCharacters, destNum, 1)
                destNum = destNum + 1
            Wend
            SortCharacters = Left(SortCharacters, destNum - 1) & currentChar & Mid(SortCharacters, destNum)
        End If
    Next sourceNum
End Function

Si en A1, on a : azur
En B1: =SortCharacters(A1)
renverra aruz

 

[Dranreb]

Bonjour.
Curieusement, si c'était pour pour les exercices de scrabble de l'autre discussion, ce serait bien plus facile, avec le code déjà en place, de n'avoir qu'une liste de mots et d'en proposer chaque fois une anagramme. Mais si c'est ce que vous voulez je vais y réfléchir, mais ce n'est pas extrêmement évident

 

[Staple1600]

Bonjour Dranreb

Je me contente de trier les caractères.
(en recyclant)
(cf message#2)

 

[Modeste geedee]

Bonjour le fil

Glané dans mes archives de mai 2003
Une fonction VBA personnalisée (dont la paternité n'est pas mienne)

la même avec option de tri

Option Compare Text

Function SortString(ByVal iRange, Optional Croissant As Boolean = True)
'Trevor Shuttleworth, mpep, modifié fs, mpfe
Dim i%, j%, sTemp$

  For j = 1 To Len(iRange) - 1
    For i = 1 To Len(iRange) - 1
      If Mid(iRange, i, 1) > Mid(iRange, i + 1, 1) Then
        sTemp = Mid(iRange, i, 1)
        Mid(iRange, i, 1) = Mid(iRange, i + 1, 1)
        Mid(iRange, i + 1, 1) = sTemp
      End If
    Next
  Next
 
  If Croissant = False Then
    For i = Len(iRange) To 1 Step -1
      SortString = SortString & Mid(iRange, i, 1)
    Next
    Exit Function
  End If
 
  SortString = iRange
 
End Function

au passage : héritage d'un de tes illustres voisins

Spoiler: aux choses du temps

Wayback Machine

 

[job75]

Bonsoir franic, JM, Bernard, Modeste geedee,

L'ennui de la solution du post #2 c'est que le tri place toutes les majuscules en tête.

Il est facile d'y remédier :

Function SortCharacters(theString As String) As String
    Dim currentChar As String
    Dim sourceNum As Integer
    Dim destNum As Integer
    For sourceNum = 1 To Len(theString)
        currentChar = Mid(theString, sourceNum, 1)
        If sourceNum = 1 Then
            SortCharacters = currentChar
        Else
            destNum = 1
            While destNum <= Len(SortCharacters) And UCase(currentChar) > UCase(Mid(SortCharacters, destNum, 1))
                destNum = destNum + 1
            Wend
            SortCharacters = Left(SortCharacters, destNum - 1) & currentChar & Mid(SortCharacters, destNum)
        End If
    Next sourceNum
End Function

Bonne nuit.

 

[franic]

Mercià tous.

 

[Eric C]

Bonsoir le forum
Bonsoir le fil
En espérant que franic aura trouvé la bonne soluce ici ou ici.
Bonne fin de ouikand à toutes & à tous

 

[franic]

OUIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII encore merci

 

[Staple1600]

Bonjour le fil

• job75
Merci d'avoir corriger l'ennui auquel je ne suis jamais confronté car quand je saisis un mot dans une cellule, normalement je respecte son orthographe (et tant pis si les lettres ne sont pas dans l'ordre)


• Modeste geedee
J'avais un voisin illustre et je l'ignorais!
Ou j'ai oublié.
Un indice ?

PS: Me semble avoir vu quelque part une formule qui fait ce tri.
Pas retrouvé pour le moment.

 

[Staple1600]

Re

Toujours pas retrouvé une solution par formule
Mais sur une autre fonction VBA (comme je la trouve "smart"), je la poste

Public Function TriAlphaCell(ByVal parmString As String) As String
Dim lngBuckets(0 To 65535) As Long, lngLoop&, bChar&
    For lngLoop = 1 To Len(parmString)
        bChar = AscW(Mid(parmString, lngLoop, 1))
        lngBuckets(bChar) = lngBuckets(bChar) + 1
    Next
    TriAlphaCell = vbNullString
    For lngLoop = LBound(lngBuckets) To UBound(lngBuckets)
        If lngBuckets(lngLoop) <> 0 Then
            TriAlphaCell = TriAlphaCell & String(lngBuckets(lngLoop), ChrW(lngLoop))
        End If
    Next
    'auteur: aikimark, issue de : CollatedCharsUnicode
End Function

PS: Si il y a plusieurs mots dans votre cellule de test...bah testez, vous verrez

 

[Staple1600]

Re

Juste pour le plaisir de relire les formules de Monique

Formule pour trier les lettres d'un mot

Bonjour à tous, Je suis à la recherche d'une formule pour trier les lettres d'un mot. J'ai adopté et adapté une formule de notre Déesse Monique (ainsi que l'a récemment baptisée Chris) basée sur LIGNE(INDIRECT(1&':'&.... Cette formule semble donner des résultats plutôt intéressants...

www.excel-downloads.com

(sans oublier Tibo)

 

[PBerg45]

Sans prétension, je poste une modif du code de Modeste geedee pour respecter l'ordre des mots si plusieurs mots dans une même cellule.

Function SortString(ByVal iRange, Optional Croissant As Boolean = True)
Dim i%, j%, S%, sTemp$, tabl
tabl = Split(iRange, " ")
For S = 0 To UBound(tabl)
  For j = 1 To Len(tabl(S)) - 1
    For i = 1 To Len(tabl(S)) - 1
      If Mid(tabl(S), i, 1) > Mid(tabl(S), i + 1, 1) Then
        sTemp = Mid(tabl(S), i, 1)
        Mid(tabl(S), i, 1) = Mid(tabl(S), i + 1, 1)
        Mid(tabl(S), i + 1, 1) = sTemp
      End If
    Next
  Next
 Next
  If Croissant = False Then
    For i = Len(tabl(S)) To 1 Step -1
      SortString = SortString & Mid(tabl(S), i, 1)
    Next
    Exit Function
  End If
 
 For S = 0 To UBound(tabl)
    Text = Text + tabl(S) + " "
 Next
  SortString = Text
 
End Function

 

[cwouam]

Hello,
il y a probablement une solution avec les dictionnaires. Genre attribuer un chiffre (une valeur) à chacun des 26 caractères de l'alphabet (les clés). Ensuite le tri est simple.
Un petit ici : tuto https://excel-malin.com/tutoriels/vba-tutoriels/la-structure-dictionnaire-en-vba/
Cordialement

 

[mapomme]

Bonsoir @franic, @Staple1600 , @Dranreb , @Modeste geedee , @job75 , @Eric C , @PBerg45 , @cwouam , @mapomme ,

Une fonction personnalisée avec trois arguments.
La fonction associe à chaque lettre spéciale sa lettre de base pour le tri (ex : â -> a, Ö -> O, è -> e, ... etc).
La fonction traite les mots d'une phrase quelconque.

TrierMotCasseDoublon(ByVal x As String, Optional xCasseINSENSIBLE, Optional xSansDoublon)

1. x : la phrase dont les mots sont à trier
2. xCasseINSENSIBLE : si présent, le tri est insensible à la casse
3. xSansDoublon : si présent, on élimine les doublons dans chaque mot du résultat

edit : bonjour @arthour973 , @zebanx