Un peu de VBA

En VBA, comment inverser deux textes séparés par un caractère?

Il y a pleins d'autres solutions, mais j'aime bien celle-là d'un point de vue pédagogique.

Soit un texte du style R21_TOTO

On veut le transformer en TOTO_R21 par VBA

On peut donc faire l'opération 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 reprendre l'élément 1 du tableau et de le concaténer 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 *


La période de vérification reCAPTCHA a expiré. Veuillez recharger la page.

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