Comment créer des formulaires avec Excel

Ouvrez un livre dans Excel. Si vous savez dans quel livre vous souhaitez insérer votre formulaire, il est temps de l'ouvrir. Utilisez le menu Fichier pour accéder au livre.

Cliquez sur le menu "Outils", sélectionnez "Macro" et cliquez sur "Visual Basic Editor".

Cliquez sur "Insérer" puis sélectionnez "UserForm".

Faites glisser un bouton de commande vers le formulaire. Vous avez besoin d'au moins trois d'entre eux pour cet exemple.

Donnez des noms aux boutons de commande et aux étiquettes. Cliquez sur "Affichage" et "Fenêtre Propriétés". Cliquez sur l'un des boutons de commande que vous avez placés sur le formulaire.

Nommez le bouton de commande qui indiquera "OK" en cliquant sur les paramètres de nom dans la fenêtre Propriétés et en tapant "cmdOK". Cliquez sur le paramètre "Légende" dans la fenêtre Propriétés et tapez "OK".

Cliquez sur un autre bouton de commande. Mettez le nom de "cmdCancel" et définissez le titre comme suit: "Annuler" dans la fenêtre Propriétés.

Cliquez sur le troisième bouton de commande et nommez-le "cmdClearForm" et modifiez les paramètres du titre pour lire "Supprimer le formulaire".

Appuyez sur la touche "F7" de votre clavier pour faire apparaître la fenêtre de code.

Cliquez sur la liste déroulante en haut de la fenêtre de code. Cliquez sur la liste en haut à gauche pour ouvrir la sous-procédure appelée "Formulaire utilisateur" et cliquez sur l'autre liste déroulante pour sélectionner "Démarrer".

Supprimez la sous-procédure susmentionnée qui lit: procédure UserForm_Click ().

Écrivez le code suivant dans la fenêtre de code (n'écrivez pas sur le texte bleu, ajoutez simplement le texte en noir): Privé Sous UserForm_Initialize () txtName.Value = "" txtPhone.Value = "" Avec cboDepartment .AddItem "Employees ".AddItem" Managers "Terminez avec YourCourse.Value =" "optIntroduction = True chkWork = False chkVacation = False txtName.SetFocus End Sub

Entrez le code sur le bouton Annuler. Double-cliquez sur le bouton Annuler pour ouvrir la fenêtre de code. Entrez votre code pour que la fenêtre de code affiche: Private Sub cmdCancel_Click () Unload Me End Sub

Ouvrez la fenêtre de code pour le bouton Supprimer le formulaire. Rappelez-vous de double-cliquer sur "Supprimer le formulaire".

Entrez votre code dans la fenêtre de code pour lire: Private Sub cmdClearForm_Click () Call UserForm_Initialize End Sub

Double-cliquez sur le bouton "Accepter" pour ajouter le code suivant dans la fenêtre de code: Sous privé, cmdOK_Click () ActiveWorkbook.Sheets ("Votre travail"). Activez la plage ("A1"). Sélectionnez Faire si Ismpty (ActiveCell) = FalseThen ActiveCell.Offset (1, 0) .Sélectionner la fin si en boucle jusqu'à IsEmpty (ActiveCell) = True ActiveCell.Value = nomTxt.Value ActiveCell.Offset (0, 1) = txtPhone.Value ActiveCell.Offset (0, 2) = cboDépart .Value ActiveCell.Offset (0, 3) = cboCourse.Value Si optIntroduction = True, puis ActiveCell.Offset (0, 4) .Value = "Entrée" ElseIf optIntermediate = True, puis ActiveCell.Offset (0, 4) .Value = " Intermed "Else ActiveCell.Offset (0, 4) .Value =" Adv "Fin Si If chkLunch = True Puis ActiveCell.Offset (0, 5) .Value =" Oui "Sinon ActiveCell.Offset (0, 5) .Value = "Non" Fin Si If chkWork = True Puis ActiveCell.Offset (0, 6) .Value = "Oui" Sinon Si chkVacation = False Puis ActiveCell.Offset (0, 6) .Value = "" Else ActiveCell.Offset (0, 6) .Value = "No" End If End If Range ("A1"). Sélectionnez End Sub.