Inverser les lettres d'un mot

[Tibo]

Bonjour à tous,

Je vous ai sollicité récemment pour obtenir une méthode pour classer les lettres d'un mot selon l'ordre alphabétique :

Lien supprimé

C'était parfait et je remercie tous ceux qui m'ont aidé.


Je reviens à la charge avec une question légèrement différente :

Je souhaiterais inverser les lettres d'un mot :

Exemple : bonjour donnerait ruojnob

Est-il possible de trouver une formule (sans doute matricielle) analogue à celle qui a permis la résolution sur le fil ci-dessus.

Je suis encore loin de maîtriser le domaine des formules matricielles.

Merci d'avance à ceux qui m'apporteront leurs lumières Excelliennes.

A bientôt.

 

[Eric C]

Bonjour le forum
Bonjour Tibo (Pas encore eu l'occasion de te croiser)

peut être avec cette fonction non matricielle mais intéressante qui fera ce que tu veux :

Sub test()
a = 'Ceci est un test avec une string'
b = 236654.25
c = Now

MsgBox ReverseWord(a)
MsgBox ReverseWord(b)
MsgBox ReverseWord(c)

End Sub

Function ReverseWord(sContents As Variant) As Variant
'Trevor Shuttleworth, mpep
If sContents = '' Then
ReverseWord = ''
Exit Function
End If
If sContents = True Or sContents = False Then
ReverseWord = Not sContents
Exit Function
End If
Dim i As Integer
For i = Len(sContents) To 1 Step -1
ReverseWord = ReverseWord & Mid(sContents, i, 1)
Next 'i
If IsNumeric(sContents) Then ReverseWord = ReverseWord * 1
End Function

Bonne journée à toutes & à tous

 

[Ti_]

Salut

l'avantage, quand on a la bonne fonction, c'est qu'on n'a pas à réinventer la roue, arf :

Function Reverse$(ByVal S$)
Reverse = StrReverse(S)
End Function

 

[andré]

Salut,

L'avantage quand on a le bon _Ti, c'est qu'il n'a pas à se creuser la tête, arf (lol)

Â+

 

[Gael]

Bonjour Tibo,

Sans vouloir relancer le débat sur les macros complémentaires, tu as téléchargé MOREFUN à l'occasion de ton précédent post et si tu réactives cette macro, tu trouveras la fonction TEXTEINVERSE qui réponds à ta demande.

@+

Gael

 

[Celeda]

Bonjour,

et nous si on veut avoir un Ti dans notre moteur!!!!!!

plutôt que la macro de Laurent (désolée, Laurent je t'aime bien mais je suis addict à Ti ...euh.....non ...à X L D !!!!!!!!!!!)


Celeda


euh quand même un peu à Ti mais c'est pas une déclaration Ti, ne rougis pas!!!

 

[Ti_]

ah oui Staple exact pour Excel 97, mais j'ai zappé définitivement cette version que je n'ai jamais utilisée.

Celeda, tiens-toi bien parce que j'arrive le 24 !

 

[JeanMarie]

Bonsoir

Malgré la réponse tonitruante de Ti, je poste une réponse, qui n'a pour but que de montrer la puissance d'Excel.

En reprenant le fichier que j'avais posté dans le fil mis en lien par Tibo. Et de supprimer la valeur de la cellule B3, puis de coller la formule matricielle ci-dessous dans une cellule, puis de remettre la donnée dans B3 (je n'ai rien trouvé pour supprimer cette manip), le texte sera présenté à l'envers.

=SI(ESTVIDE(B3);' ';B6)&SI(ET(NBCAR(B6)<=NBCAR(B$3);NBVAL(B3)=1);STXT(B3;NBCAR(B3)-A1+1;1);'')

Bonne soirée

@+Jean-Marie

 

[Tibo]

Bonjour à tous,

Tout d'abord, un grand merci pour le temps passé sur ma question.

Etant formuliste pur jus, je pensais pouvoir obtenir une solution 100 % formule.

Je me suis donc obstiné et ai finalement trouvé une solution très proche de celle qui permettait de trier les lettres d'un mot dans l'ordre alphabétique.

Elle consiste à définir une matrice via une formule nommée, puis de récupérer les lettres de cette matrice via un INDEX.

la formule nommée :

ztom=STXT(mot;NBCAR(mot)+1-LIGNE(INDIRECT(1&':'&NBCAR(mot)));1)

la formule avec INDEX :

=SI(NBCAR(mot)>0;INDEX(ztom;1)
&SI(NBCAR(mot)>1;INDEX(ztom;2)
&SI(NBCAR(mot)>2;INDEX(ztom;3)
&SI(NBCAR(mot)>3;INDEX(ztom;4)
&SI(NBCAR(mot)>4;INDEX(ztom;5)
&SI(NBCAR(mot)>5;INDEX(ztom;6)
&SI(NBCAR(mot)>6;INDEX(ztom;7)
&SI(NBCAR(mot)>7;INDEX(ztom;8)
&SI(NBCAR(mot)>8;INDEX(ztom;9)
&SI(NBCAR(mot)>9;INDEX(ztom;10)
&SI(NBCAR(mot)>10;INDEX(ztom;11)
&SI(NBCAR(mot)>11;INDEX(ztom;12)
&SI(NBCAR(mot)>12;INDEX(ztom;13)
&SI(NBCAR(mot)>13;INDEX(ztom;14)
&SI(NBCAR(mot)>14;INDEX(ztom;15)


Je joins le fichier où l'on retrouvera la formule permettant de trier les lettres d'un mot dans l'ordre alphabétique ainsi que d'inverser les lettres d'un mot.

Je vais également poster un 2ème fichier, mais sur un nouveau fil dans lequel je me sers de 2ème formule.

Peut-on mieux faire en restant dans l'univers Formules ?

Je ne sais pas. A vous de me le dire.

Sur ce, bon dimanche à tous.


P.S. / remplacer le par ; ) mais sans l'espace

[file name=_lettres_mot_triees_ou_inversees.zip size=2677]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/_lettres_mot_triees_ou_inversees.zip[/file]

Message édité par: tibo, à: 04/09/2005 10:18

 

[JeanMarie]

Bonjour

Regarde le fichier joint, il n'y a pas de macros.

@+Jean-Marie [file name=trilettresmot2.zip size=2010]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/trilettresmot2.zip[/file]