Qu'est-ce que VBA TextBox dans Excel?
VBA TextBox est l'un des nombreux contrôles des contrôles UserForm dans Excel. VBA TextBox peut être utile lorsque vous souhaitez que l'utilisateur saisisse son nom, son âge, son adresse, son salaire, etc. . VBA TextBox peut être constitué de données statiques ou dynamiques.
UserForm lui-même est un outil très utile qui dispose de différentes options de contrôle telles que TextBox, MsgBox et InputBox, etc. .
Dans cet article, vous obtiendrez une expérience pratique sur Excel VBA TextBox.
Exemples d'Excel VBA TextBox
Voici les différents exemples de VBA TextBox dans Excel.
Vous pouvez télécharger ce modèle Excel VBA TextBox ici - Modèle Excel VBA TextBoxExemple # 1 - Comment insérer TextBox dans VBA?
Voici les étapes pour insérer TextBox dans Excel VBA.
Étape 1: ouvrez un fichier Excel et appuyez sur Alt + F11 pour accéder au volet VBA.
Étape 2: Comme nous l'avons déjà expliqué, TextBox est une option disponible dans UserForm. Nous devons donc insérer UserForm dans VBE. Accédez au menu Insertion > Cliquez sur UserForm .
Étape 3: Dès que vous insérez un UserForm dans VBA, vous pouvez voir une option Toolbox qui lui est associée et avoir différentes options associées à UserForm.
Étape 4: Dans cette boîte à outils, sélectionnez TextBox .
Étape 5: faites glisser cette zone de texte sur le formulaire utilisateur.
Étape 6: Appuyez sur F4 pour voir les propriétés de UserForm (Alternativement, vous pouvez le faire en cliquant avec le bouton droit sur UserForm inséré). Ces propriétés vous permettent d'apporter certaines modifications nécessaires, comme changer le nom de UserForm pour pouvoir y accéder facilement.
Certaines autres modifications de base que vous pouvez effectuer avec le volet des propriétés d'UserForm sont comme changer la police, changer la taille, etc.
Étape 7: Saisissez le texte comme « Bienvenue dans VBA TextBox! »Dans TextBox sous UserForm.
Voici comment créer une zone de texte VBA.
Exemple # 2 - Définition de la valeur sur VBA TextBox
Voyons comment définir les valeurs de TextBox. Il est parfois obligatoire de définir les valeurs sinon, l'utilisateur entrera tout ce qui l'intéresse.
Étape 1: insérez un nouveau formulaire utilisateur dans VBE. Allez dans le menu Insertion > cliquez sur UserForm.
Étape 2: Dans les outils UserForm, sélectionnez TextBox et faites-le glisser vers UserForm.
Étape 3: insérez un bouton de commande sous UserForm de la même manière que vous avez ajouté TextBox.
Étape 4: changez la légende du bouton de commande en « Soumettre » sous les propriétés. Vous pouvez accéder aux propriétés du bouton de commande en cliquant avec le bouton droit sur le bouton de commande> Cliquez sur Propriétés .
Étape 5: Double-cliquez sur le bouton Soumettre ou faites un clic droit dessus et sélectionnez Afficher le code .
Étape 6: dans le code, insérez une ligne de nouveau code dans la sous-procédure comme ci-dessous.
Code:
Private Sub CommandButton1_Click () TextBox1.Value = "Mon nom est Lalit!" End Sub
Ce code en surbrillance vous permet d'affecter la valeur à droite entre guillemets doubles à la TextBox. Vous pouvez également utiliser la propriété TextBox.Text au lieu de TextBox.Values pour définir la valeur de TextBox.
Étape 7: Appuyez sur F5 ou sur le bouton Exécuter sous VBE pour exécuter ce code, vous verrez un UserForm avec TextBox vide. Dès que vous appuyez sur le bouton Soumettre, le texte attribué à TextBox y apparaîtra.
Exemple # 3 - Restreindre l'entrée TextBox pour accepter uniquement des valeurs numériques
Suivez les étapes ci-dessous:
Étape 1: insérez un nouveau formulaire utilisateur dans votre VBA et ajoutez-y TextBox.
Étape 2: changez le nom de TextBox dans la section Propriétés en « My_Age ».
Étape 3: Double-cliquez sur TextBox ou faites un clic droit dessus et sélectionnez Afficher le code .
Vous pourrez voir la sous-procédure initiale comme ci-dessous:
Code:
Sous privé My_Age_Change () End Sub
Étape 4: Maintenant, essayez d'ajouter une condition If qui commence par If Not.
Code:
Sous-dossier privé My_Age_Change () sinon sous-dossier
Étape 5: Demandez au compilateur de vérifier si la valeur de TextBox «My_Age» est numérique ou n'utilise pas le mot-clé IsNumeric devant la condition If Not.
Code:
Sous privé My_Age_Change () sinon différent de Numeric (My_Age.Value) End Sub
Étape 6: Comme chaque condition IF le demande, ajoutez-y un mot-clé Then .
Code:
Sous-privé My_Age_Change () sinon différent de Numeric (My_Age.Value), puis de terminer Sub
Dans ce morceau de code, vous demandez au compilateur de vérifier si la valeur entrée par l'utilisateur sous TextBox est numérique ou non. Si ce n'est pas numérique, alors que faire? Suivez l'étape suivante.
Étape 7: Avec l'utilisation de MsgBox, ajoutez un commentaire comme «Désolé! Seuls les nombres sont autorisés. »À afficher si, la valeur dans TextBox n'est pas numérique.
Code:
Private Sub My_Age_Change () Sinon isNumeric (My_Age.Value) Alors MsgBox "Désolé! Seuls les nombres sont autorisés." End Sub
Étape 8: Maintenant, fermez cette instruction IF à l'aide du mot clé End IF.
Code:
Private Sub My_Age_Change () Sinon isNumeric (My_Age.Value) Alors MsgBox "Désolé! Seuls les nombres sont autorisés." End If End Sub
Étape 9: Maintenant, exécutez ce code en appuyant sur le bouton F5 de votre clavier ou sur le bouton Exécuter de VBE et voyez la sortie. Vous obtiendrez un TextBox comme indiqué ci-dessous:
Maintenant, j'essaie de saisir une valeur entière et de voir si cela me permet réellement de saisir la même chose ou non.
Bingo, cela me permet de stocker la valeur entière.
Maintenant, essayons d'ajouter un flottant (valeur avec des points décimaux) à cette zone de texte et voyons si cela nous permet de saisir la même chose.
Vérifions si cette zone de texte nous permet de stocker des valeurs négatives en dessous ou non. Je vais taper un nombre négatif et vérifier.
Bien! Bien!! Eh bien !!!, il envoie un message me disant que seuls les numéros sont autorisés. Cela s'est produit parce que ce code écrit initialement est avec une condition IF, il n'a aucune solution de contournement que faire si le nombre n'est pas positif. De plus, l'âge ne peut pas être négatif. Droite? Par conséquent, je reçois un message d'avertissement comme vous pouvez le voir ci-dessus. Toutefois, si vous cliquez sur OK dans la boîte de message et essayez de saisir le numéro, cela vous permettra de le faire. Mais je ne recommanderai pas d'enfreindre les règles là-bas.
Enfin, essayons une chaîne de texte dans la zone et voyons si elle permet ou non de stocker la même sous zone de texte.
Comme prévu, dès que j'ai entré la première lettre de chaîne, le système m'a empêché de le faire en lançant un message. C'est parce que nous avons mentionné une condition dans notre code disant que si la valeur n'est pas numérique, veuillez envoyer un message vers l'utilisateur disant que seules les valeurs numériques sont autorisées.
Choses dont il faut se rappeler
- VBA TextBox est une option spéciale sous UserForm. Qui est conçu pour prendre en compte l'utilisateur lui-même.
- Il existe deux méthodes pour définir les valeurs d'un TextBox: en utilisant TextBox.Text et en utilisant TextBox.Value.
- Parfois, il est obligatoire de restreindre l'entrée utilisateur afin que nous obtenions le bon type de données.
Articles recommandés
Ceci est un guide de VBA TextBox. Ici, nous discutons de la façon de créer TextBox dans Excel VBA avec des exemples pratiques et un modèle Excel téléchargeable. Vous pouvez également consulter nos autres articles suggérés -
- Comment utiliser la fonction VBA IsNumeric?
- Création d'une zone de liste déroulante dans Excel
- Insérez CheckBox dans Excel
- Fonction VBA UCASE dans Excel
- Comment fermer UserForm dans VBA?