Comment créer des formulaires avec Excel

Ouvrez un classeur 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.

Nommez les boutons de commande et les é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 "Accepter" 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. Entrez le nom "cmdCancel" et définissez le titre pour lire "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 afficher 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".

Supprime 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 à propos du texte bleu, ajoutez simplement le texte noir): Private Sub UserForm_Initialize () txtName.Value = "" txtPhone.Value = "" With cboDepartment .AddItem "Employees ".AddItem" Managers "Terminez avec YourCourse.Value =" "optIntroduction = True chkWork = False chkVacation = False txtName.SetFocus End Sub

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

Ouvrez la fenêtre de code pour le bouton Effacer 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 "OK" pour ajouter le code suivant dans la fenêtre de code: Sous privé, cmdOK_Click () ActiveWorkbook.Sheets ("YourWork"). Activez Range ("A1"). Sélectionnez Do Is Is 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) = cboDepartment .Value ActiveCell.Offset (0, 3) = cboCourse.Value Si optIntroduction = True Puis ActiveCell.Offset (0, 4) .Value = "Entrée" ElseIf optIntermediate = True Ensuite, 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 Alors ActiveCell.Offset (0, 6) .Value = "Oui" Sinon Si chkVacation = False Puis ActiveCell.Offset (0, 6) .Value = "" Sinon ActiveCell.Offset (0, 6) .Value = "No" End If End If Range ("A1"). Sélectionnez End Sub.

Des Articles Intéressants