Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access inversion d'une chaîne (miroir)

inversion d'une chaîne (miroir)

4 réponses
Avatar
caro
Bonjour =E0 tous,

je souhaite inverser une cha=EEne de caract=E8res...
ex.: 12345T6789 transformer en 9876T54321...Existe -il une fonction qui
le fait automatiquement..

merci de votre aide
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
CC
Bonjour,

A ma connaissance, je ne vois pas de fonction "toute prête" qui permet de
faire cela.

Essaye tout de même cette fonction de je vien de faire :

Public Function Inversion_Chaine(ChaineAInverser As String) As String

Dim i As Integer

On Error GoTo Err_Inversion_Chaine

For i = Len(ChaineAInverser) To 1 Step -1
Inversion_Chaine = Inversion_Chaine & Mid(ChaineAInverser, i, 1)
Next i


End_Inversion_Chaine:
Exit Function

Err_Inversion_Chaine:
MsgBox "Erreur n° " & Err.Number & " : " & Err.Description, vbCritical +
vbOKOnly, "Err_Inversion_Chaine"
Resume End_Inversion_Chaine

End Function


"caro" a écrit dans le message de
news:
Bonjour à tous,

je souhaite inverser une chaîne de caractères...
ex.: 12345T6789 transformer en 9876T54321...Existe -il une fonction qui
le fait automatiquement..

merci de votre aide
Avatar
caro
merci de ton aide...

A+

Bonjour,

A ma connaissance, je ne vois pas de fonction "toute prête" qui permet de
faire cela.

Essaye tout de même cette fonction de je vien de faire :

Public Function Inversion_Chaine(ChaineAInverser As String) As String

Dim i As Integer

On Error GoTo Err_Inversion_Chaine

For i = Len(ChaineAInverser) To 1 Step -1
Inversion_Chaine = Inversion_Chaine & Mid(ChaineAInverser, i, 1)
Next i


End_Inversion_Chaine:
Exit Function

Err_Inversion_Chaine:
MsgBox "Erreur n° " & Err.Number & " : " & Err.Description, vbCriti cal +
vbOKOnly, "Err_Inversion_Chaine"
Resume End_Inversion_Chaine

End Function


"caro" a écrit dans le message de
news:
Bonjour à tous,

je souhaite inverser une chaîne de caractères...
ex.: 12345T6789 transformer en 9876T54321...Existe -il une fonction qui
le fait automatiquement..

merci de votre aide


Avatar
Eric
Bonjour caro,

Pierre (3stone) t'as donné la solution: la fonction StrReverse()
StrReverse("caro") renvoie orac ;-)

Ps: très pratique pour verifier si une phrase est un palindrome ;-)

merci de ton aide...

A+


Bonjour,

A ma connaissance, je ne vois pas de fonction "toute prête" qui permet de
faire cela.

Essaye tout de même cette fonction de je vien de faire :

Public Function Inversion_Chaine(ChaineAInverser As String) As String

Dim i As Integer

On Error GoTo Err_Inversion_Chaine

For i = Len(ChaineAInverser) To 1 Step -1
Inversion_Chaine = Inversion_Chaine & Mid(ChaineAInverser, i, 1)
Next i


End_Inversion_Chaine:
Exit Function

Err_Inversion_Chaine:
MsgBox "Erreur n° " & Err.Number & " : " & Err.Description, vbCritical +
vbOKOnly, "Err_Inversion_Chaine"
Resume End_Inversion_Chaine

End Function


"caro" a écrit dans le message de
news:
Bonjour à tous,

je souhaite inverser une chaîne de caractères...
ex.: 12345T6789 transformer en 9876T54321...Existe -il une fonction qui
le fait automatiquement..

merci de votre aide





--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr


Avatar
3stone
Salut,

"caro"
je souhaite inverser une chaîne de caractères...
ex.: 12345T6789 transformer en 9876T54321...Existe -il une fonction qui
le fait automatiquement..



Oui, cette fonction existe !

Réponse dans ton autre fil...


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/