inversion phrase

[thierry]

Bonjour,

Je voudrais savoir comment inverser une chaine de caractere. La 1er lettre devient la derniere et ainsi de suite. J'ai essayé le fonction STXT sans succes. Merci pour votre aide.
A+

 

[Minick]

Salut,

Tu as soit le miroir soit ce petit bout de code à adapter à tes besoins

En A1 la phrase d'origine, en A2 la phrase inversé:

Sub Inverse()
    Dim Cpt As Integer
    Dim Phrase As String
    For Cpt = Len(Range('A1')) To 1 Step -1
        Phrase = Phrase & Mid(Range('A1'), Cpt, 1)
    Next
    Range('A2') = Phrase
End Sub

@+

 

[Celeda]

Bonsoir,


hi hi minick

et bien me connaissant je vais te confier que je prends..........................................................................................................












le miroir :woohoo: :woohoo: :woohoo: :woohoo: :woohoo:

Celeda

 

[Dugenou]

Bonsoir :
début de la formule si ton texte est en b4: =STXT(B4;NBCAR(B4);1)&STXT(B4;NBCAR(B4)-1;1)&STXT(B4;NBCAR(B4)-2;1)&STXT(B4;NBCAR(B4)-3;1) et ainsi de suite jusqu'à la longueur totale du mot. Mais à mon avis ça serait mieux en vba avec un for i =1 to nbcar(b4), mais je ne pratique pas le vba.

Désolé

 

[Dugenou]

oups, pardon Minick, j'avions point vu que t'étais là !

Bisous Celeda !

 

[Minick]

no problemo, ya de la place poour tout le monde

@+

 

[_Thierry]

Bonsoir à tous


Nan nan nan j'interdis qu'on fasse du verlan dans le Forum !!!


Bon en VBA ça passe, bravo Minick 'The Junior' !!!
(lol)

@+Thierry (toujours en Wifi, arf les centrinos durent longtemps !)

 

[thierry]

Merci a tous pour votre aide ce test.
A+
thierry