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. 

Protéger la cellule après saisie

Voici un développe­ment com­plé­men­taire par rap­port à un post de 2016 🙂

L’idée est d’a­jouter un code qui per­met de ver­rouiller une cel­lule après saisie, mais aus­si d’a­jouter un paramètre qui per­met de dés­ac­tiv­er le ver­rouil­lage pour mod­i­fi­er le classeur. 

Voici le fichier:

Note : j’ai aus­si ajouté (en plus de la vidéo), la dé-pro­tec­tion de la feuille lorsqu’on clique sur le bou­ton de déverrouillage.

Et la vidéo

Lambda Explorer (en Anglais)

Bon­jour à tous,

Si vous utilisez déjà la fonc­tion LAMBDA, voici un util­i­taire qu’il va être impos­si­ble à éviter ! 

Il a été dévelop­pé par Charles Williams, LA référence Excel pour l’amélio­ra­tion des temps de calcul.

Le top, l’ap­pli­ca­tion est gratuite.

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

Et une vidéo d’introduction :