Comment forcer la saisie en majuscules dans une zone de texte ?

Dans Excel, nous pouvons rapidement convertir des minuscules en majuscules dans le texte d'une cellule en utilisant la fonction MAJUSCULE, mais avez-vous déjà essayé de forcer la saisie de texte en majuscules dans une zone de texte ? Dans cet article, je vais vous présenter un code simple pour accomplir cette tâche.

Forcer la saisie en majuscules dans une zone de texte avec du code VBA

Forcer la saisie en majuscules dans une zone de texte avec du code VBA

Pour forcer la saisie de texte en majuscules dans une zone de texte, le code VBA suivant pourrait vous être utile :

1. Tout d'abord, insérez la zone de texte en cliquant sur Développeur > Insérer > Zone de texte (Contrôle ActiveX), puis dessinez une zone de texte selon vos besoins, voir capture d'écran :

2. Après avoir inséré la zone de texte, faites un clic droit dessus, puis sélectionnez Afficher le code dans le menu contextuel pour ouvrir la fenêtre Microsoft Visual Basic pour Applications, puis remplacez le code original par le code VBA suivant dans le module vide :

Code VBA : Forcer le texte en majuscules dans une zone de texte :

Private Sub TextBox1_Change()
    TextBox1.Text = UCase(TextBox1.Text)
End Sub

3. Ensuite, enregistrez et fermez la fenêtre de code, puis quittez le mode Création. Maintenant, lorsque vous tapez du texte dans la zone de texte, il sera automatiquement saisi en majuscules, voir capture d'écran :