Manipuler les chaînes de caractères

Concaténer les chaînes : &

Le terme concaténer en programmation signifie mettre bout à bout, par exemple, la concaténation de « Luke » et « Skywalker » donne « Luke Skywalker ». Pour concaténer en VBA, vous pouvez utiliser le caractère &, qui se prononce esperluette en français et qui est souvent appelé "et commercial". La syntaxe générale sera la suivante :

Dim VotreVariable As String 
VotreVariable = "abc" & "def" 
'La variable VotreVariable aura alors la valeur "abcdef" 

Exemple 1 : concaténer deux chaînes de caractères

Cet opérateur vous permettra de mettre bout à bout des chaînes de caractères mais également des valeurs numériques ou encore des dates.

Si par exemple, vous souhaitez transformer 1 et 2 en « 12 », il vous faudra utiliser :

Dim Texte As String 
Texte = 1 & 2 'donne la valeur "12" 
'alors que 
Texte = 1 + 2 'donne la valeur "3" 

Exemple 2 : privilégier...

Longueur d’une chaîne : Len()

Lorsque vous souhaitez renseigner des informations, ou simplement valider que les données renseignées sont cohérentes, par exemple une longueur de code postal, celle d’un identifiant ou encore d’un numéro de colis, l’information sur la longueur d’une chaîne de caractères vous sera très utile. La fonction qui vous permet de récupérer cette longueur est Len(). Cette fonction prend en paramètre la chaîne de caractères dont vous voulez connaître la longueur, et sa syntaxe est la suivante.

Dim ChaineQuelconque As String 
'Alimentation de la chaîne ailleurs dans le programme 
Dim Longueur As Long 
Longueur = Len(ChaineQuelconque) 

Exemple 4 : utilisation de la fonction Len pour connaître la longueur d’une chaîne de caractères

La fonction retournera le nombre de caractères de la chaîne, y compris les espaces ou caractères invisibles, comme les retours à la ligne. Une chaîne vide aura donc une longueur de 0.

Voici quelques exemples :

Dim Accueil As String, Titre As String 
Accueil = "Bonjour" 
Titre = "Madame" 
MsgBox Len(Accueil) 'Affiche 7 
MsgBox Len(Titre) 'Affiche 6 
Msbox Len(Accueil & " " & Titre)  'affiche 14 (7 + 1 + 6) 

Exemple 5 :...

Portions d’un texte : Left(), Right(), Mid()

Lorsque vous travaillez sur des chaînes comportant plusieurs informations, et que vous souhaitez découper cette chaîne principale en une ou plusieurs autres chaînes de plus petites tailles, vous disposez des trois fonctions élémentaires Left(), Right() et Mid(). Lorsque vous manipulez des libellés de dossier, avec une certaine nomenclature, ou que vous avez des noms de fichiers avec des noms toujours similaires, comme ABC_DEF_2021 ou DossierXXX456, les trois fonctions suivantes vous permettront d’aller chercher les bouts de texte que vous souhaitez récupérer.

À noter que lorsque vous travaillez avec VBA, la numérotation des caractères commence par 1. Ainsi dans la chaîne « ABCD », le 3^e caractère est « C ».

Dim Resultat As String ...

Majuscules et minuscules : UCase(), LCase()

Lorsque vous manipulez des chaînes de caractères, il est possible que vous deviez passer l’ensemble des caractères en majuscules, pour un nom de famille par exemple, ou inversement en minuscules. Cette notion de majuscule et minuscule pour des caractères est appelée la casse en informatique. On parle de bas-de-casse pour les minuscules, et de haut de casse pour les majuscules. Vous pouvez l’utiliser pour des plaques d’immatriculation (traditionnellement en capitales) ou encore des adresses postales (en minuscules).

VariableResultat = UCase(TexteOriginal) 

Dim TexteExemple As String 
TexteExemple = "Bonjour à tous" 
MsgBox UCase(TexteExemple) 'affiche BONJOUR À TOUS 

Présence d’une sous-chaîne dans une chaîne : InStr(), InstrRev() et Like

Parfois, vous avez besoin de savoir si un mot ou une lettre est quelque part dans une chaîne de caractères, ou encore vous cherchez à savoir quel est le dernier emplacement d’une sous-chaîne à l’intérieur d’un texte d’origine. Les fonctions InStr() et InStrRev() vous aideront à arriver à vos fins. Elles retournent la position de la chaîne à l’intérieur d’une chaîne.

Dim Position As Integer 
Position = InStr([PositionDeDebutDeRecherche], [TexteDansLequelOnCherche],  
[TexteQueLonCherche], [ModeDeComparaison]) 

Effacer des espaces en trop : Trim()

Parmi les fonctions très pratiques pour manipuler les chaînes de caractères, voici les trois qui permettent de supprimer les espaces qui se situent en début ou en fin de chaîne, qui reproduit ainsi le comportement de la formule SUPPRESPACE, laissant les espaces en milieu de chaîne. Cette fonction permet notamment de corriger les erreurs de saisie, lorsqu’un utilisateur ajoute involontaire un caractère espace en bout de texte par exemple.

Cette fonction Trim() prend en paramètre une chaîne de caractères, et retourne une chaîne en ayant retiré les espaces qui se situeraient en début et en fin de chaîne. La syntaxe générale de cette fonction est la suivante :

Dim Resultat As String 
Resultat = Trim(ChaineDeDepart) 

Exemple 27 : syntaxe générale de la fonction Trim()

Un exemple d’utilisation de cette fonction :

MsgBox Len(Trim("    Bonjour " )) ' Affiche la longueur de "Bonjour", c'est-à-dire 7. 
Exemple 27 : Cas d'utilisation de la fonction Trim() 

Il est à noter que si aucun espace n’est présent ni en début ni en fin de chaîne, alors la fonction retourne la même chaîne que celle qui lui est passée en paramètre.

Il existe deux autres fonctions similaires à...

Découper en un tableau, regrouper : Split, Join

Lorsque vous avez une chaîne de caractères dans laquelle vos informations sont délimitées par des caractères de séparation fixe, comme la virgule, le point-virgule, la tabulation ou tout autre caractère, il est possible de transformer cette chaîne en tableau de valeurs.

Split(Texte, Delimiteur, [Limite],[Comparaison]) 

Dim Tableau As Variant 
Tableau = Split("VBA Excel 2023", " " ) 
?Tableau(0) ' "VBA" 
?Tableau(1) ' "Excel" 
?Tableau(2) ' "2023" 

Travailler en combinant plusieurs de ces fonctions

Lorsque vient le temps de travailler avec des chaînes, il est très probable que vous ayez besoin de manipuler de façon plus intense les blocs de données, et travailler en combinant les différentes fonctions vues jusqu’ici sera d’une grand aide.

Vous pouvez avoir besoin de récupérer les caractères qui suivent un mot-clé dans une chaîne, par exemple « Nom : » dans la chaîne « Prénom : Jean-Philippe / Nom : André », et mettre le tout en majuscules, soit obtenir en sortie ANDRÉ. Le point important dans ce genre de situation est de bien découper le raisonnement dans un premier temps, et de traiter les points pas à pas.

Voici un exemple de solution :

Sub IsolerLeNom() 
   Dim strEntree As String 
   strEntree = "Prénom : Jean-Philippe / Nom : André" 
   '1ere étape, on détermine l'emplacement du Nom : à partir de la fin 
   Dim iEmplacementNom As Integer 
   iEmplacementNom = InStrRev(strEntree, "Nom :") 
   '2e étape on récupère les caractères situés après Nom : 
   Dim strSousChaine As String ...

Exercices