Les UserForm

Les UserForm

On désigne sous ce nom le formulaire permettant de dessiner des boîtes de dialogue personnalisées.
On peut y placer divers contrôles :

Type de contrôle

Nom

Principales propriétés

Zone de texte

Name : permet d'affecter un nom au contenu de la zone de texte
TabIndex : permet de déterminer l'ordre de tabulation.

Intitulé (étiquette)

Caption : permet de mettre un texte explicatif en regard d'une zone de saisie (liste déroulante, zone de texte...).

Image

Picture : permet de sélectionner une image présente sur le disque dur.
BorderStyle : permet de déterminer ou non la présence d'une bordure autour de l'image.
PictureSizeMode : permet d'agencer l'image dans une zone d'image (en la disposant en mosaïque, en l'étirant ou en zoomantdessus).

Bouton

Name : permet d'affecter un nom au contenu de la zone de texte
TabIndex : permet de déterminer l'ordre de tabulation
----
Affecter du code à un bouton : un double clic sur le bouton ouvre une procèdure mon_bouton_Click()

Liste

Name : permet d'affecter un nom au contenu de la zone de texte
TabIndex : permet de déterminer l'ordre de tabulation
----
Ajouter un élément à la liste (procédure UserForm_Initialize()) : ma_liste.Additem "texte".
Positionner par défaut le curseur sur le premier élément de la liste (procédure UserForm_Initialize()) :ma_liste.ListIndex=0.

Liste modifiable

Les méthodes

Refermer une Userform

 Unload nom_de_la_feuille

Affichee une boîte de dialogue personnalisée

 nom_de_la_userform.show

Pré-remplir une UserForm

 UserForm_Initialize()


Code VBA (valable pour Word & Excel)

Insérer un paragraphe

 Chr(10)

Concaténer des chaînes de caractères

 &

Insérer un espace

 " "

Récupérer le nom de l'utilisateur

Application.UserName

Récupérer la date système

Date

Formater une date

Format(Date, "d/mm/yy")
d=jour
m= mois
y=année

 

Déclencher une macro systématiquement à l'ouverture, qu'il s'agisse d'un nouveau document ou non

Private Sub Document_Open

Déclencher une macro à la création d'un nouveau document

Private Sub Document_New