Astuce VBA : majuscules et minuscules
Pour convertir une chaîne de caractères en majuscules, utilisez la fonction UCase :
Sub test()
MsgBox UCase("test 1") 'Renvoie TEST 1
MsgBox UCase("Test 2") 'Renvoie TEST 2
MsgBox UCase("TEST 3") 'Renvoie TEST 3
MsgBox UCase("TeSt 4") 'Renvoie TEST 4
End Sub
Pour convertir une chaîne de caractères en minuscules, utilisez la fonction LCase :
Sub test()
MsgBox LCase("test 1") 'Renvoie test 1
MsgBox LCase("Test 2") 'Renvoie test 2
MsgBox LCase("TEST 3") 'Renvoie test 3
MsgBox LCase("TeSt 4") 'Renvoie test 4
End Sub
Astuce pratique : vérifier si une valeur est en majuscules (ou en minuscules)
Pour véfifier si une valeur est entièrement en majuscules, il existe une solution très simple qui consiste à vérifier si cette valeur est égale à cette même valeur en majuscules (en utilisant la fonction UCase).
Sub test()
maValeur = "BonJOUR"
If maValeur = UCase(maValeur) Then 'Test si en majuscules
MsgBox "Oui, maValeur est (entièrement) en majuscules."
Else
MsgBox "Non, maValeur n'est pas (entièrement) en majuscules." '<= Valeur renvoyée (car maValeur contient des minuscules)
End If
End Sub
Dans cet exemple la valeur "BonJOUR" n'est pas entièrement en majuscules, elle échoue donc au test maValeur = UCase(maValeur)
.
Sub test()
maValeur = "BONJOUR 1234"
If maValeur = UCase(maValeur) Then 'Test si en majuscules
MsgBox "Oui, maValeur est (entièrement) en majuscules."'<= Valeur renvoyée (car maValeur ne contient aucune minuscule)
Else
MsgBox "Non, maValeur n'est pas (entièrement) en majuscules."
End If
End Sub
Dans ce deuxième exemple la valeur "BONJOUR 1234" ne contient aucune minuscule, elle réussit donc le test maValeur = UCase(maValeur)
.
Pour vérifier si au contraire une valeur est entièrement en minuscules, remplacez simplement UCase par LCase.