Posez votre question Signaler

Fonction Excel inversion de texte [Résolu]

Messages postés
18
Date d'inscription
mardi 27 mai 2003
Dernière intervention
14 mars 2006
 - - Dernière réponse :  kendavros - 10 mars 2013 à 17:37
Visual Basic Posez votre question Signaler
Bonjour,

Je cherche à créer une fonction sous Excel dans l'objectif d'inverser une chaîne de caractère. Exemple : "azerty" => "ytreza".

La fonction CHERCHER recherche un caractère de la gauche vers le droite dans Excel. Existe-il l'équivalant de droite à gauche ?

Merci d'avance,

ZosleX
Afficher la suite 

5 réponses

Meilleure réponse
Signaler Commenter la réponse de cs_Willi
Messages postés
2381
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
13 février 2015
3
Merci
Salut,
A défaut de connaitre une formule sous Excel voici une petite fonction perso à mettre dans l'éditeur de code de ta feuille ou classeur excel peut importe

Exemple d'utilsation: MsgBox InverseChars("abcdefghijklmnopqrstuvwxyz")


Public Function InverseChars(MaChaine As String) As String


Dim sTmp As String
Dim i As Integer

For i = 0 To Len(MaChaine) - 1
sTmp = sTmp & Mid$(MaChaine, Len(MaChaine) - i, 1)
Next

InverseChars = sTmp

End Function


Si la réponse te conviens merci de l'accepter

Merci cs_Willi 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 103 internautes ce mois-ci

Signaler Commenter la réponse de jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Dernière intervention
11 mars 2006
3
Merci
Bonjour,

Voici la Function Inverser.Pour l'utiliser, tu place du texte (par
exemple en A1, A2) et en B1 tu mets =Inverser(A1), en B2
=Inverser(A2) etc...



Function Inverser(ChaineDepart) As String

' Retourne son argument, inversé

Dim i As Integer, LongueurChaine As Integer

Inverser = ""

LongueurChaine = Len(ChaineDepart)

For i = LongueurChaine To 1 Step -1

Inverser = Inverser & Mid(ChaineDepart, i, 1)

Next i

End Function



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.

Merci jpleroisse 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 103 internautes ce mois-ci

Signaler Commenter la réponse de zoslex
Messages postés
18
Date d'inscription
mardi 27 mai 2003
Dernière intervention
14 mars 2006
0
Merci
Merci.

La réponse donnée par jpleroisse est environ 20% plus rapide que celle de Willi.

ZosleX
Signaler Commenter la réponse de cs_Willi
Messages postés
2381
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
13 février 2015
0
Merci
Je pense que cela vient de la
jpleroisse part directement de la fin de la chaine et ne calcule qu'une seule fois sa longeur
alors que moi dans ma boucle je recherche à chaque fois la longeur de ma chaine que je soustrait à i
Signaler Commenter la réponse de kendavros
0
Merci
VB dans Excel 2010

Function Inverser(ByVal Chaine$)
Inverser = StrReverse(Chaine)
End Function

... pour la mémoire des générations futures

Kendavros
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.