Ce didacticiel montrera comment utiliser la fonction Right VBA pour extraire du texte à partir de la droite.
Fonction droite
Fonction VBA Droite n derniers caractères
La fonction VBA Right renvoie les n derniers caractères d'une chaîne :
| 123456 | Sous-DroitExample_1()MsgBox Right("ABCDEFGHI", 4) 'Le résultat est : "FGHI"MsgBox Right("ABCDEFGHI", 2) 'Le résultat est : "HI"MsgBox Right("ABCDEFGHI", 1) 'Le résultat est : "I"MsgBox Right("ABCDEFGHI", 100) 'Le résultat est : "ABCDEFGHI"Fin du sous-marin |
Fonction VBA Right n derniers caractères dans une variable
Comme indiqué ci-dessus, vous pouvez définir une chaîne en saisissant simplement du texte entouré de guillemets. Mais la fonction RIGHT fonctionnera également avec des variables de chaîne. Ces exemples extrairont les n derniers caractères d'une variable chaîne.
| 123456789 | Sous-droitExample_2()Dim StrEx As String 'Définir une variable de chaîneStrEx = "ABCDEFGHI"MsgBox Right(StrEx, 4) 'Le résultat est : "FGHI"MsgBox Right (StrEx, 2) 'Le résultat est : "HI"MsgBox Right(StrEx, 1) 'Le résultat est : "I"MsgBox Right (StrEx, 100) 'Le résultat est : "ABCDEFGHI"Fin du sous-marin |
Programmation VBA | Le générateur de code fonctionne pour vous !
Fonction VBA Right n derniers 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 derniers caractères de cette valeur de cellule de feuille de calcul.
| 123456789101112 | Sous-droitExample_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 "ABCDEFG hI"MsgBox Right (StrEx, 4) 'Le résultat est : "G hI"MsgBox Right (StrEx, 2) 'Le résultat est : "hI"MsgBox Right(StrEx, 1) 'Le résultat est : "I"MsgBox Right (StrEx, 100) 'Le résultat est : "ABCDEFG hI"Fin du sous-marin |
VBA Fonction droite Couper la première lettre
Pour supprimer des lettres au début d'une chaîne, utilisez la fonction RIGHT 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 du début de la chaîne :
| 12345678 | Sous-droitExample_4()Dim StrEx As String 'Définir une variable de chaîneStrEx = "ABCDEF"MsgBox Right(StrEx, Len(StrEx)) 'Le résultat est : "ABCDEF"MsgBox Right(StrEx, Len(StrEx) - 1) 'Le résultat est : "BCDEF"MsgBox Right(StrEx, Len(StrEx) - 2) 'Le résultat est : "CDEF"Fin du sous-marin |
VBA Droit d'extraire du texte après l'espace
Pour extraire le nom de famille d'une chaîne avec un nom complet, utilisez la fonction Right avec la fonction Len et Instr.
La fonction VBA LEN compte le nombre de caractères dans une chaîne :
| 1 | Len(StrEx) |
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, nous pouvons extraire la partie après le premier espace d'une phrase :
| 123456789101112131415 | Sous-droitExample_5()Dim StrEx As String 'Définir une variable de chaîneStrEx = "Luc Skywalker"MsgBox Right(StrEx, Len(StrEx) - InStr(StrEx, " "))« Le résultat est : « Skywalker »StrEx = "Léonard de Vinci"MsgBox Right(StrEx, Len(StrEx) - InStr(StrEx, " "))'Le résultat est : "da Vinci"StrEx = "Que la Force soit avec vous"MsgBox Right(StrEx, Len(StrEx) - InStr(StrEx, " "))« Le résultat est : « la Force soit avec vous »Fin du sous-marin |
Fatigué de rechercher des exemples de code VBA ? Essayez AutoMacro !
VBA Droit d'extraire le dernier mot
Pour extraire le dernier mot d'une chaîne avec une phrase, utilisez la fonction Right avec la fonction Len et InstrRev.
Comme nous l'avons vu plus haut, la fonction VBA LEN compte le nombre de caractères dans une chaîne :
| 1 | Len(StrEx) |
La fonction VBA InStrRev recherche une sous-chaîne dans une chaîne et renvoie le numéro de position de la sous-chaîne. Il démarre la recherche à partir de la fin de la phrase (de droite à gauche) mais renvoie la position à partir du début de la chaîne (de gauche à droite).
| 1 | InStrRev(StrEx, " ") |
En combinant les fonctions, nous pouvons extraire la partie après le dernier espace d'une phrase :
| 123456789101112131415 | Sous-droitExample_6()Dim StrEx As String 'Définir une variable de chaîneStrEx = "Luc Skywalker"MsgBox Right(StrEx, Len(StrEx) - InStrRev(StrEx, " "))« Le résultat est : « Skywalker »StrEx = "Léonard de Vinci"MsgBox Right(StrEx, Len(StrEx) - InStrRev(StrEx, " "))'Le résultat est : "da Vinci"StrEx = "Que la Force soit avec vous"MsgBox Right(StrEx, Len(StrEx) - InStrRev(StrEx, " "))'Le résultat est : "vous"Fin du sous-marin |
