[OK]chaîne de caractères

[Invité]

Bonjour,

Existe t-il une fonction pour inerser les caractères d'une chaîne.

Exemple : RUOJNOB = BONJOUR

Merci

[alain51]

Salut,

peut-être avec cela en vb:

<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD><font size=-1><b>Citation :</b></font></TD></TR></TABLE><TABLE BORDER=1 CELLPADDING=10 BORDERCOLOR=#FF0000 ALIGN=CENTER WIDTH=85%><TR BGCOLOR=#F3F2F4><TD><FONT SIZE=-1>Attribute VB_Name = "ToutALEnvers"


'inverser les caractères d'une donnée quelconque

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</FONT></TD></TR></TABLE>

[alain51]

J'ai trouvé cela, qui le fait:

<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD><font size=-1><b>Citation :</b></font></TD></TR></TABLE><TABLE BORDER=1 CELLPADDING=10 BORDERCOLOR=#FF0000 ALIGN=CENTER WIDTH=85%><TR BGCOLOR=#F3F2F4><TD><FONT SIZE=-1> Public Function InverseStr(ByVal Chaine As String)
'Nombre de caractère de la chaine et position du pointeur dans celle-ci
Dim NbCar As Integer = Len(Chaine)
'La boucle d'inversion
While NbCar > 0 'Tant que le pointeur est > à  0
'Caractère corespondant à  la position du pointeur et transfert dans
'la chaine de retour qui est la fonction elle-même.
InverseStr += Mid(Chaine, NbCar, 1) 'Replacement des caractères
NbCar -= 1 'Décrémentation faà§on C++
End While
End Function</FONT></TD></TR></TABLE>

[Invité]

MERCI POUR LES EXEMPLES.

J'en conclu qu'il n'existe pas directement une fonction excel.

Merci