Un peu de VBA

En VBA, com­ment invers­er deux textes séparés par un caractère?

Il y a pleins d’autres solu­tions, mais j’aime bien celle-là d’un point de vue pédagogique.

Soit un texte du style R21_TOTO

On veut le trans­former en TOTO_R21 par VBA

On peut donc faire l’opéra­tion suivante

Sub InverserTexte()
    Dim sTexte As String
    sTexte = "R21_TOTO"

    sTexte = Split(sTexte, "_")(1) & "_" & Split(sTexte, "_")(0)

    MsgBox sTexte
End Sub

L’idée est de scinder (split) le texte en un tableau, puis de repren­dre l’élé­ment 1 du tableau et de le con­catén­er avec l’élé­ment 0 du tableau. 

Pour marque-pages : Permaliens.

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.