Étape 8: Afficher l’objet Userform
Pour afficher l’objet Userform, placez un bouton de commande sur votre feuille de calcul et ajoutez la ligne de code suivante :
Private Sub CommandButton1_Click()
Family_Form.Show
End Sub
Nous allons maintenant créer la UserForm_Initialize Sub. Lorsque vous utilisez la méthode Show pour l’objet Userform, cette sous-routine sera exécutée automatiquement.
1. ouvrir l’éditeur Visual Basic.
2. dans l’Explorateur de projets, cliquez avec le bouton droit sur Family_Form et puis cliquez sur Afficher le Code.
3. Sélectionnez Userform dans la liste déroulante de gauche. Choisissez Initialize dans la liste déroulante de droite.
4. Ajoutez les lignes de code suivantes :
Private Sub UserForm_Initialize()
« Vider NameTextBox
NameTextBox.Value = ""
« Vider PhoneTextBox
PhoneTextBox.Value = ""
« Vider CityListBox CityListBox.Clear
« Remplir CityListBox
Avec CityListBox
. AddItem « Kochi »
. AddItem « Bombay »
. AddItem « Delhi »
. AddItem « Agartala »
. AddItem « Agra »
. AddItem « Agumbe »
. AddItem « Ahmedabad »
. AddItem « Aizawl »
"vous pouvez ajouter ici vos autres villes
Se termine par
« Vider StatusComboBox
StatusComboBox.Clear
« Remplir StatusComboBox
Avec StatusComboBox
. AddItem « Classe inférieure »
. AddItem « Classe moyenne »
. AddItem « Upper Class »
Se termine par
"Décochez la case DataCheckBoxes
"Ne définir par défaut aucune voiture
CarOptionButton2.Value = True
« Vider les membres
Members.Value = ""
« Définir le Focus sur le nom
TextBox NameTextBox.SetFocus
End Sub