Lorsque vous travaillez dans VBA, vous devez souvent convertir des chaînes en minuscules, en majuscules ou en casse appropriée. Ceci est possible en utilisant les fonctions UCase, LCase et StrConv.
Ces fonctions sont importantes lors de la manipulation de chaînes dans VBA, car VBA est sensible à la casse. Si vous souhaitez rendre VBA insensible à la casse, vous devez ajouter l’option Comparer le texte en haut de votre module. Vous pouvez en savoir plus à ce sujet ici: Empêcher VBA Sensible à la casse
UCase – Convertit la chaîne en majuscules
La fonction UCase dans VBA convertit toutes les lettres d’une chaîne en majuscules. Il n’y a qu’un seul argument, qui peut être une chaîne, une variable avec une chaîne ou une valeur de cellule. Cette fonction est souvent utilisée si vous souhaitez comparer deux chaînes. Voici le code de la fonction UCase:
|
1
2
3
4
5
6
7
8
|
Dim strText En Tant Que Chaîne
Dim strTextUCase En Tant Que Chaîne
strText = »fonction en majuscules en cours d’exécution »
strTextUCase = UCase(strText)
MsgBox strTextUCase
|
Dans l’exemple, nous voulons convertir toutes les lettres de la variable strText en majuscules et affecter la chaîne convertie à la variable strTextUCase. À la fin, nous appelons la boîte de message avec la chaîne convertie:
Image 1. Utilisation de la fonction UCase dans VBA
LCase – Convertissez la chaîne en minuscules
Si vous souhaitez convertir toutes les lettres d’une chaîne en minuscules, vous devez utiliser la fonction LCase. Cette fonction a un argument, le même que l’UCase. C’est le code de la fonction LCase:
|
1
2
3
4
5
6
7
8
|
Dim strText Comme Chaîne
Dim strTextLCase Comme Chaîne
strText= »FONCTION EN MINUSCULES »
strTextLCase=LCase(strText)
MsgBox strTextLCase
|
Dans cet exemple, nous convertissons toutes les lettres de la chaîne de A1 en minuscules. Après cela, la chaîne convertie est affectée à la cellule A1.
Image 2. Utilisation de la fonction LCase dans VBA
StrConv – Convertir une chaîne en Casse appropriée
La fonction StrConv vous permet de convertir une chaîne de texte en casse appropriée. La fonction a deux arguments. La première est la chaîne que vous souhaitez convertir. La seconde est le type de conversion que vous souhaitez. Pour convertir une chaîne en casse appropriée, vous devez la définir sur vbProperCase. Le code de la fonction est:
|
1
2
3
4
5
6
7
8
|
Dim strText As String
Dim strTextProperCase As String
strText = « running proper case function »
strTextProperCase = StrConv(strText, vbProperCase)
MsgBox strTextProperCase
|
You will see on the example how the function works. Il prend la chaîne de la cellule B1, la convertit en casse appropriée et renvoie la valeur dans la cellule A1.
Image 3. Utilisation de la fonction StrConv dans VBA
StrConv – Convertir une chaîne en Majuscules ou minuscules
En utilisant la fonction StrConv, vous pouvez également convertir une chaîne en majuscules ou minuscules. Pour ce faire, il vous suffit de définir le deuxième argument sur vbUpperCase ou vbLowerCase:
|
1
|
strTextConverted = StrConv(strText, vbUpperCase)
|
|
1
|
strTextConverted = StrConv(strText, vbLowerCase)
|
Fonctions VBA Supérieures, inférieures et Cas–Cas appropriés dans Access
Tous les exemples ci-dessus fonctionnent exactement de la même manière dans Access VBA que dans Excel VBA.
|
1
2
3
4
|
Private Sub ClientName_AfterUpdate()
‘ cela convertira le texte de la zone Nom du client en majuscules
Me.Nom du client = UCase (Moi.Nom du client)
End Sub
|
