Lors de la création de Userforms dans Excel VBA, vous pouvez utiliser le Collection de contrôles pour parcourir facilement les contrôles et définir une propriété de chaque contrôle sur une valeur spécifique.
Le formulaire utilisateur que nous allons créer se présente comme suit :
Pour créer ce formulaire utilisateur, exécutez les étapes suivantes :
1. Ouvrez l'éditeur Visual Basic. Si l'Explorateur de projets n'est pas visible, cliquez sur Affichage, Explorateur de projets.
2. Cliquez sur Insérer, Formulaire utilisateur. Si la boîte à outils n'apparaît pas automatiquement, cliquez sur Affichage, Boîte à outils. Votre écran doit être configuré comme ci-dessous.
3. Ajoutez l'étiquette, les zones de texte (d'abord en haut, la seconde en dessous de la première et ainsi de suite) et le bouton de commande. Une fois cette opération terminée, le résultat doit être cohérent avec l'image du formulaire utilisateur présentée précédemment. Par exemple, créez un contrôle de zone de texte en cliquant sur TextBox dans la boîte à outils. Ensuite, vous pouvez faire glisser une zone de texte sur le formulaire utilisateur.
4. Pour modifier la légende du formulaire utilisateur, l'étiquette et le bouton de commande, cliquez sur Affichage, Fenêtre Propriétés et cliquez sur chaque contrôle.
5. Pour afficher l'Userform, placez un bouton de commande sur votre feuille de calcul et ajoutez la ligne de code suivante :
Private Sub CommandButton1_Click()
UserForm1.Show vbModeless
Fin du sous-marin
Explication : en ajoutant vbModeless, vous pouvez utiliser le Userform et travailler dans votre feuille de calcul en même temps.
Nous avons maintenant créé la première partie du Userform. Bien que cela ait déjà l'air soigné, rien ne se passera encore lorsque nous cliquerons sur le bouton de commande du formulaire utilisateur.
6. Ouvrez l'éditeur Visual Basic.
7. Dans l'Explorateur de projets, double-cliquez sur UserForm1.
8. Double-cliquez sur le bouton de commande.
9. Ajoutez les lignes de code suivantes :
Private Sub CommandButton1_Click()
Diminuer en tant qu'entier
Pour i = 1 à 10
Controls("TextBox" & i).Valeur = Cells(i + 1, 1).Valeur
Ensuite je
Fin du sous-marin
Explication : Avec seulement quelques lignes de code, nous pouvons remplir les zones de texte avec les numéros de téléphone de la feuille. Nous avons utilisé l'opérateur & pour concaténer (joindre) les éléments. Ces lignes de code fonctionnent car nous n'avons pas modifié les noms des contrôles de zone de texte (TextBox1, TextBox2, TextBox3, etc.). Pour modifier les noms des contrôles, cliquez sur Affichage, Fenêtre Propriétés et cliquez sur chaque contrôle.
Résultat lorsque vous cliquez sur le bouton de commande sur la feuille :
