Tutorial : User form
● Création d'un Userform
dans le VBA
– Un Userform est une boite
de dialogue personnalisée
1
Création d'un UserForm dans le
projet
● Dans VB Editor
(Alt + F11)
– Insertion → UserForm
● Propriétés de
l'UserForm
– Changer la propriété
Caption
– Par exemple :
Équilibre sous 3 forces
2
Dimension de l'UserForm
● Modifier la taille de la
boite de dialogue à
l'aide des poignées
de contrôles
OU
● Utiliser les propriétés
– Height : hauteur
– Width : largeur
3
Insérer un contrôle
● Les contrôles sont
insérés à partir de la
boite à outil
● Si la boite à outil n'est
pas affiché
– Menu affichage → Boite à
outils
4
Insérer un contrôle
● Contrôle « Label »
– Ces contrôles sont utilisés pour
afficher des messages d'information
– Insérer un premier contrôle label
– Changer les propriétés :
● Caption : Coordonnées du point A
● Font : Arial, Gras, Taille 12
5
Contrôle label
● Insérer un autre contrôles label
– Changer la propriété caption :
● Caption : xA (en mm)
● Taille de la police : 10
● Dimensionner si nécessaire
– Insérer un troisième label
● Effectuer un copier-coller du label 2
● Caption : yA (en mm)
6
Mise en forme
● Mise en forme
– Utiliser les fonctions de
mise en forme pour
aligner les labels 2 et 3
7
Contrôle « Zone de texte »
● Contrôle « Zone de texte »
– Ces contrôles sont utilisés pour
créer des zones de saisie
– Insérer un premier contrôle zone de
texte
– Aligner avec le label 2
– Changer les propriétés
● Name : TextBox_xa
● Value : 100
8
Text box
● Effectuer un copier
coller pour le
deuxième textbox
● Changer les
propriétés
● Name : TextBox_ya
● Value : 100
9
Duplication pour le point B
● Sélectionner les 5
contrôles
● Grouper
● Copier
● Coller
● Dissocier les
éléments copiés
10
Propriétés
● Changer les propriétés de manière à obtenir
le résultat suivant
● Changer le nom (name) des TextBox
11
Création
● De la même manière, créer les éléments
pour la force en A et l'angle d'inclinaison de la
force en B
12
Contrôle : Barre de défilement
● Créer une barre de
défilement
● Propriétés
– Name : ScrollBar_alpha
– Value : 0
– Min : 0
– Max : 360
– SmallChange : 15
13
Label
● Créer un nouveau label
● Propriétés
– Name : Label_alpha
– Caption : 0
● Afficher le code lié à l'UserForm
14
Label
● Écrire le code suivant
Private Sub ScrollBar_alpha_Change()
Label_alpha = ScrollBar_alpha.Value
End Sub
– Ce code signifie que le label_alpha va changer
de valeur lors d'un changement de la barre de
défilement
15
Bouton de commande
● On termine l'UserForm par un bouton de
commande
– Caption : Calcul
16
Bouton de commande
● Double cliquer sur le bouton
Private Sub CommandButton1_Click()
[Link]
xA = TextBox_xA.Value
yA = TextBox_yA.Value
xB = TextBox_xB.Value
yB = TextBox_yB.Value
FXA = TextBox_FXA.Value
FYA = TextBox_FYA.Value
AngleB = ScrollBar_alpha.Value
calcul
End Sub
17
Déclaration des variables
● Les variables vont être déclarées dans le
module avant le commencement de toutes
subroutine (sub)
● Public xA As Double, yA As Double, xB As
Double, yB As Double ' Coordonnées des
points A et B
● Le terme public indique que la variable est
commune à tout le projet.
18
Afficher l'userform
● Pour afficher la boite de dialogue
[Link]
19
