fonction Excel inversion de texteRésolu

Question

Bonjour,

Je cherche &#224; cr&#233;er une fonction sous Excel dans l'objectif d'inverser une cha&#238;ne de caract&#232;re. Exemple : "azerty" => "ytreza".

La fonction CHERCHER recherche un caract&#232;re de la gauche vers le droite dans Excel. Existe-il l'&#233;quivalant de droite &#224; gauche ?

Merci d'avance,

ZosleX

cs_Willi · Accepted Answer

Salut,
A d&#233;faut de connaitre une formule sous Excel voici une petite fonction perso &#224; mettre dans l'&#233;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&#233;ponse te conviens merci de l'accepter

jpleroisse · Answer

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&#233;

    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&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

zoslex · Answer

Merci.

La r&#233;ponse donn&#233;e par jpleroisse est environ 20% plus rapide que celle de Willi.

ZosleX

cs_Willi · Answer

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 &#224; chaque fois la longeur de ma chaine que je soustrait &#224; i

kendavros · Answer

VB dans Excel 2010

Function Inverser(ByVal Chaine$)
 Inverser = StrReverse(Chaine)
End Function

... pour la mémoire des générations futures

Kendavros

Fonction Excel inversion de texte

5 réponses