Archives de l’auteur : Gaetan Mourmant

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.

Voici un développement complémentaire par rapport à un post de 2016 🙂

L'idée est d'ajouter un code qui permet de verrouiller une cellule après saisie, mais aussi d'ajouter un paramètre qui permet de désactiver le verrouillage pour modifier le classeur.

Voici le fichier:

Note : j'ai aussi ajouté (en plus de la vidéo), la dé-protection de la feuille lorsqu'on clique sur le bouton de déverrouillage.

Et la vidéo

Bonjour à tous,

Si vous utilisez déjà la fonction LAMBDA, voici un utilitaire qu'il va être impossible à éviter !

Il a été développé par Charles Williams, LA référence Excel pour l'amélioration des temps de calcul.

Le top, l'application est gratuite.

https://www.decisionmodels.com/FastExcelLambdaExplorer.htm

Et une vidéo d'introduction :