MsgBox et InputBox conviennent pour des questions simples oui/non et des réponses sur une seule ligne, mais l’ajout d’un client nécessite souvent plusieurs champs à la fois — un nom d’entreprise, un contact, une ville, un statut. C’est à cela que sert un UserForm : une petite fenêtre personnalisée avec ses propres étiquettes, zones de texte, listes déroulantes et boutons, créée dans le VBE et entièrement contrôlée par votre code.

Création d’un formulaire

Dans le VBE, faites un clic droit sur votre projet dans l’Explorateur de projet et choisissez Insertion → UserForm. Une surface de conception vierge apparaît, accompagnée d’une boîte à outils flottante contenant des contrôles que vous pouvez y faire glisser.

Étiquettes, zones de texte, listes déroulantes et boutons

Chaque contrôle que vous faites glisser sur le formulaire reçoit un nom par défaut comme TextBox1 ou CommandButton1 — fonctionnel, mais dénué de sens dès qu’un formulaire comporte six ou sept contrôles. L’habitude la plus importante dans cette section est visible dans la fenêtre Propriétés : renommer chaque contrôle immédiatement après l’avoir ajouté, en utilisant un préfixe court qui identifie son type (txt pour TextBox, cbo pour ComboBox, cmd pour CommandButton, opt pour OptionButton, chk pour CheckBox, lst pour ListBox) suivi d’un nom descriptif. txtCompanyName reste clair dans le code même trois semaines plus tard ; TextBox1 ne l’est pas.

Les étiquettes sont de simples légendes textuelles non interactives (« Nom de l’entreprise ») — l’utilisateur peut les voir mais ne peut jamais y saisir de texte ni cliquer dessus. Les zones de texte servent à saisir du texte libre. Les listes déroulantes présentent une liste de choix, ce qui correspond exactement à l’utilisation de cboCity et cboStatus — restreindre Ville et Statut à une liste connue plutôt que de laisser un utilisateur saisir librement « chicago », « Chicago,IL » et « CHI » pour la même chose dans différents enregistrements.

Écriture du code derrière le formulaire

Double-cliquer sur n'importe quel contrôle dans la zone de conception permet d'accéder directement à son code — VBA crée automatiquement une procédure d'événement nommée ControlName_EventName, et le code saisi à l'intérieur s'exécutera chaque fois que cet événement spécifique se produit sur ce contrôle. L'événement par défaut d'un bouton est Click :

Private Sub UserForm_Initialize()
    ' runs once, automatically, when the form is first shown
    cboCity.AddItem "Chicago"
    cboCity.AddItem "Boston"
    cboCity.AddItem "Austin"
    cboCity.AddItem "Seattle"
    cboCity.AddItem "Denver"
 
    cboStatus.AddItem "Active"
    cboStatus.AddItem "Inactive"
    cboStatus.AddItem "Prospect"
End Sub
 
Private Sub cmdCancel_Click()
    Unload Me
End Sub

UserForm_Initialize est une procédure d'événement spéciale qui se déclenche automatiquement au chargement du formulaire — avant que l'utilisateur ne voie quoi que ce soit — ce qui en fait l'endroit idéal pour remplir les ComboBox avec .AddItem plutôt que de saisir les choix manuellement dans la fenêtre Propriétés, surtout si ces choix peuvent évoluer ou provenir d'une feuille de calcul. Unload Me dans cmdCancel_Click ferme entièrement le formulaire ; Me fait toujours référence au formulaire dans lequel le code s'exécute actuellement, donc cette ligne fonctionne sans modification, quel que soit le nom que vous donnez ensuite au formulaire.

Exemple pratique : Enregistrement d'un nouveau client

Voici la procédure associée au bouton Enregistrer — celle qui écrit réellement une nouvelle ligne dans tblCustomers :

Private Sub cmdSave_Click()
    Dim tbl As ListObject
    Dim newRow As ListRow
 
    Set tbl = ThisWorkbook.Worksheets("Customers").ListObjects("tblCustomers")
    Set newRow = tbl.ListRows.Add
 
    newRow.Range(1, 1).Value = "C" & Format(tbl.ListRows.Count + 1, "000")
    newRow.Range(1, 2).Value = txtCompanyName.Value
    newRow.Range(1, 3).Value = txtContact.Value
    newRow.Range(1, 4).Value = txtEmail.Value
    newRow.Range(1, 5).Value = cboCity.Value
    newRow.Range(1, 6).Value = cboStatus.Value
 
    MsgBox txtCompanyName.Value & " was added successfully."
    Unload Me
End Sub

Tâche

1. Insérer un nouveau UserForm, le nommer frmAddCustomer, et ajouter trois TextBox (txtCompanyName, txtContact, txtEmail) et deux ComboBox (cboCity, cboStatus), chacun avec une étiquette correspondante.
2. Ajouter deux CommandButtons, cmdSave et cmdCancel, puis écrire les procédures UserForm_Initialize et cmdCancel_Click exactement comme indiqué.
3. Écrire cmdSave_Click comme montré, puis ajouter un bouton temporaire ailleurs dans le classeur avec le code frmAddCustomer.Show pour tester l'ouverture du formulaire.
4. Remplir le formulaire pour un sixième client fictif et cliquer sur Enregistrer — vérifier qu'une nouvelle ligne apparaît dans tblCustomers avec les valeurs saisies.