Inversion de lettres puis inversion de mots

[clardica]

Bonjour à tous
J'essaye de résoudre la problématique suivante :
A partir d'une phrase : Les sanglots longs des violons de l'automne blessent
je souhaites obtenir ceci : seL stolgnas sgnol sed snoloiv ed enmotua'l tnesselb
En code j'ai créé une fonction :

Function ReverseText(text) As String
Dim TextLen As Integer
Dim i As Integer
TextLen = Len(text)
For i = TextLen To 1 Step -1
ReverseText = ReverseText & Mid(text, i, 1)
Next i
End Function

Grâce à ça j'obtiens : enmotua'l ed snoloiv sed sgnol stolgnas seL
Pas mal 🙂
Mais maintenant je n'arrive pas à inverser la liste, je dois faire des erreurs quelque part. J'ai fais une commande

=DROITE(A7;NBCAR(A7)-CHERCHE(" ";A7))&" "&GAUCHE(A7;CHERCHE(" ";A7)-1)

, mais ce n'est pas suffisant.
Quelqu'un peut-il m'aider ?
Merci par avance

 

[ROGER2327]

Re : Inversion de lettres puis inversion de mots

Bonjour clardica

Essayez ceci :

[COLOR="DarkSlateGray"]Function ReverseMot(text) As String
Dim sText As String
Dim i As Integer, k As Integer
Dim sp
   sp = Split(text)
   For k = 0 To UBound(sp)
      sText = sp(k)
      For i = Len(sText) To 1 Step -1
         ReverseMot = ReverseMot & Mid(sText, i, 1)
      Next i
      ReverseMot = ReverseMot & " "
   Next k
   ReverseMot = Left$(ReverseMot, Len(ReverseMot) - 1)
End Function[/COLOR]

ROGER2327

 

[clardica]

Re : Inversion de lettres puis inversion de mots

Bonjour et merci.
En une seule fonction bravo.
Moi qui cherhcais en deux étapes !!!

j'ai encore beaucoup d'apprentissage devant moi

merci de votre aide

 

[ROGER2327]

Re : Inversion de lettres puis inversion de mots

Re...

On peut faire plus court en utilisant la fonction que vous avez écrite :

[COLOR="DarkSlateGray"]Function ReverseMot(text) As String
Dim k As Integer
Dim sp
   sp = Split(text)
   For k = 0 To UBound(sp)
      ReverseMot = ReverseMot & ReverseText(sp(k)) & " "
   Next k
   ReverseMot = Left$(ReverseMot, Len(ReverseMot) - 1)
End Function[/COLOR]

Bonne journée.
ROGER2327