inversion phrase

M

Minick

XLDnaute Impliqué

• 9 Mars 2005

• #2

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é:

Code:

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

@+

 

Vote positif 0 Vote négatif

Celeda

XLDnaute Barbatruc

• 9 Mars 2005

• #3

Bonsoir,


hi hi minick 🙂 🙂 🙂 🙂 🙂 🙂 🙂

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












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

Celeda

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 9 Mars 2005

• #4

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é

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 9 Mars 2005

• #5

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

Bisous Celeda !

 

Vote positif 0 Vote négatif

M

Minick

XLDnaute Impliqué

• 9 Mars 2005

• #6

no problemo, ya de la place poour tout le monde

@+

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 9 Mars 2005

• #7

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 !)

 

Vote positif 0 Vote négatif

T

thierry

Guest

• 11 Mars 2005

• #8

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

 

Vote positif 0 Vote négatif