Récupérer contenu d'une cellule à l'envers

[Didier]

Bonjour

Je cherche à récupérer contenu d'une cellule à l'envers.

Ex : 456 me donne 654, 12345 me donne 54321 etc

Merci et bonne journée

 

[dg62]

Bonjour Didier


En VBA, une routine à adapter à ton cas

Sub inverse()

mot = Range('A1').Value
mot2 = ''
lg = Len(mot)

Dim tableau(20) As Integer

For i = 1 To lg
    tableau(i) = Mid(mot, i, 1)
Next i

For i = lg To 1 Step -1
    mot2 = mot2 & tableau(i)
Next i

Range('B1') = mot2

End Sub

 

[lE0nard]

Bonjour le Forum, Didier, dg62,

Une solution sans VBA,

=DROITE(A1;1)&DROITE(A1;1)-1&DROITE(A1;1)-2 etc...


A+

 

[dg62]

re

et une routine universelle.

sélectionner la colonne à inverser et lancer la macro.

Sub permute()
Dim cel As Range

Dim tableau()
For Each cel In Selection
mot = cel.Value
lg = Len(mot)
mot2 = ''
redim tableau(lg)
    For i = 1 To lg
        tableau(i) = Mid(mot, i, 1)
    Next i

    For i = lg To 1 Step -1
        mot2 = mot2 & tableau(i)
    Next i

    cel.Offset(0, 1) = mot2
    
Next cel

End Sub

Message édité par: dg62, à: 31/10/2005 10:00

 

[MichelXld]

bonjour Didier, Dg62 et Leonard

une autre possibilité par macro

MsgBox StrReverse(12345)


bonne journée
MichelXld

 

[dg62]

Bonjour Michel



Je ne connaissais pas le StrReverse !

Il y a t-il un trou de souris pour me cacher avec mes 17 lignes de code ?

alors que :

sub permute()
dim cel as range
for each cel in selection
cel.offset(0,1)=StrReverse(cel)
next cel
end sub

devait suffire.

Merci Michel

 

[PhiBou]

Bonjour Didier, Leonard, Dj62,Michel, le Forum

Une petite matricielle si ton nombre est en A1 :

=SOMME(STXT(A1;NBCAR(A1)-LIGNE(INDIRECT('1:' & NBCAR(A1)))+1;1)*10^(NBCAR(A1)-LIGNE(INDIRECT('1:' & NBCAR(A1)))))

A valider avec CTRL + MAJUSCULE + ENTREE

PhiBou

 

[Didier]

Bonjour

Merci à tous

La fct StrReverse est excellente, je ne la connaissait pas non plus
La formule matricielle est bien aussi, mais elle ne marche pas avec les lettres

Encore merci A+ Didier