Ce tutoriel montrera comment utiliser la fonction VBA gauche.
Fonction gauche
La fonction VBA Left renvoie les n premiers caractères d'une chaîne.
Fonction gauche VBA n Premiers caractères
La fonction VBA Left renvoie les n premiers caractères d'une chaîne :
| 123456 | Sous-gaucheExample_1()MsgBox Left("ABCDEFGHI", 4) 'Le résultat est : "ABCD"MsgBox Left("ABCDEFGHI", 2) 'Le résultat est : "AB"MsgBox Left("ABCDEFGHI", 1) 'Le résultat est : "A"MsgBox Left("ABCDEFGHI", 100) 'Le résultat est : "ABCDEFGHI"Fin du sous-marin |
Fonction VBA Gauche n Premiers caractères d'une variable
Comme indiqué ci-dessus, vous pouvez définir une chaîne en saisissant simplement du texte entouré de guillemets. Mais la fonction LEFT fonctionnera également avec des variables de chaîne. Ces exemples extrairont les n premiers caractères d'une variable de chaîne.
| 1234567891011 | Sous-gaucheExample_2()Dim StrEx As String 'Définir une variable de chaîneStrEx = "ABCDEFGHI"MsgBox Left(StrEx, 4) 'Le résultat est : "ABCD"MsgBox Left(StrEx, 2) 'Le résultat est : "AB"MsgBox Left(StrEx, 1) 'Le résultat est : "A"MsgBox Left(StrEx, 100) 'Le résultat est : "ABCDEFGHI"Fin du sous-marin |
VBA Left Function n Premiers caractères d'une cellule
Les chaînes peuvent être définies dans le code VBA, mais vous pouvez également utiliser les valeurs des cellules. Lisez la valeur d'une cellule, conservez-la dans une variable de chaîne et extrayez les n premiers caractères de cette valeur de cellule de feuille de calcul.
| 12345678910111213 | Sous-gaucheExample_3()Dim StrEx As String 'Définir une variable de chaîne'Lire la valeur de la cellule A1 dans la feuille de calcul Sheet1StrEx = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value'Pour cet exemple, la valeur de la cellule A1 est "A bCDEFGHI"MsgBox Left(StrEx, 4) 'Le résultat est : "ABCD"MsgBox Left(StrEx, 2) 'Le résultat est : "AB"MsgBox Left(StrEx, 1) 'Le résultat est : "A"MsgBox Left(StrEx, 100) 'Le résultat est : "ABCDEFGHI"Fin du sous-marin |
Fonction VBA Gauche Couper la dernière lettre
Pour supprimer des lettres à la fin d'une chaîne, utilisez la fonction GAUCHE avec la fonction LEN.
La fonction VBA LEN compte le nombre de caractères dans une chaîne :
| 1 | Len(StrEx) |
En combinant les fonctions, on peut supprimer un certain nombre de caractères à la fin de la chaîne :
| 123456789 | Sous-gaucheExample_4()Dim StrEx As String 'Définir une variable de chaîneStrEx = "ABCDEF"MsgBox Left(StrEx, Len(StrEx)) 'Le résultat est : "ABCDEF"MsgBox Left(StrEx, Len(StrEx) - 1) 'Le résultat est : "ABCDE"MsgBox Left(StrEx, Len(StrEx) - 2) 'Le résultat est : "ABCD"Fin du sous-marin |
VBA gauche pour extraire le prénom
Pour extraire le prénom d'une chaîne avec un nom complet, utilisez la fonction Left avec la fonction Instr.
La fonction VBA Instr recherche une sous-chaîne à l'intérieur d'une chaîne et renvoie le numéro de position de la sous-chaîne.
| 1 | InStr(StrEx, " ") |
En combinant les fonctions, on peut extraire le premier mot d'une phrase :
| 12345678910111213141516171819 | Sous-gaucheExample_5()Dim StrEx As String 'Définir une variable de chaîneStrEx = "Alexandre Graham Bell"MsgBox Gauche(StrEx, InStr(StrEx, " "))'Le résultat est : "Alexander" (notez l'espace à la fin)MsgBox Gauche(StrEx, InStr(StrEx, " ") - 1)'Le résultat est : "Alexander" (AUCUN espace à la fin)StrEx = "Léonard de Vinci"MsgBox InStr(StrEx, " ")'Le résultat est : 9 car un espace est trouvé en position 9MsgBox Gauche(StrEx, InStr(StrEx, " ") - 1)'Le résultat est : "Leonardo"Fin du sous-marin |
