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.