Comment créer une userform?

Création

Crée un nouveau classeur
Alt F11
Sélectionne le classeur dans la liste et Insertion=>Userform
L'userform créée est nommée "Userform1" par défaut

Comment afficher l'userform?

Crée un bouton dans la feuille et affecte lui cette macro:

Sub Lance()
Load UserForm1
UserForm1.Show
End Sub

Load pour charger l'userform en mémoire et Show pour l'afficher.
Un clique sur la petite croix en haut à droite pour fermer l'userform.

Comment fermer l'userform avec un bouton?

Dans l'éditeur VB
Si la boîte à outils (Contrôle) n'est pas affichée => Menu Affichage=> Boîte à outils
Dans la boîte à outils, clique sur le contrôle "Bouton de commande" et place le sur l'userform

Double-clique sur le bouton, un bout de code s'affiche:

Private Sub CommandButton1_Click()

End Sub

Tape cette instruction "Unload UserForm1"
Ce qui donne:

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Retourne à la feuille, lance l'userform et un clique sur ce bouton la fermera.

usf1.zip

7 ko Télécharge l'exemple 1

Prochaine étape: Modifier l'aspect du bouton

[top]

Sub Lance() Load UserForm1 UserForm1.Show End Sub

Private Sub CommandButton1_Click() Unload UserForm1 End Sub

Sub Lance()
Load UserForm1
UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub