FormulaireUserForm
Le contrôle formulaire (UserForm)
Ecrire dans Excel depuis un formulaire
On suppose qu'il existe une procédure événementielle (de type Click) derrière le bouton ok du formulaire qui appel la procédure ci-dessous :
Sub proc_ecrire_dans_excel_depuis_formulaire()
Num = 1
Range("A1").End(xlDown).Select
Num = ActiveCell.Row + 1
Range("A" & Num).Value = frm_monformulaire.mazonedetexte.Value
End Sub
Num = 1
Range("A1").End(xlDown).Select
Num = ActiveCell.Row + 1
Range("A" & Num).Value = frm_monformulaire.mazonedetexte.Value
End Sub
Initialiser un formulaire
Dans la feuille de code du formulaire
Private Sub UserForm_Initialize()
'Sub à réaliser dans la feuille de code du formulaire
'Valeur par défaut
frm_txt_date = "12/12/2012"
frm_txt_montant = 200 ' un CInt sera nécessaire lors de l'affichage (voir exemple de formulaire)
'Remplissage du menu déroulant
frm_cbo_designation.AddItem "Carburant"
frm_cbo_designation.AddItem "Restaurant"
frm_cbo_designation.AddItem "Hôtel"
End Sub
A part pour le remplissage d'un menu déroulant, en phase de test, UserForm_Activate() est préférable à UserForm_Initialize() car Activate fait une mise à jour à chaque appel du formulaire'Sub à réaliser dans la feuille de code du formulaire
'Valeur par défaut
frm_txt_date = "12/12/2012"
frm_txt_montant = 200 ' un CInt sera nécessaire lors de l'affichage (voir exemple de formulaire)
'Remplissage du menu déroulant
frm_cbo_designation.AddItem "Carburant"
frm_cbo_designation.AddItem "Restaurant"
frm_cbo_designation.AddItem "Hôtel"
End Sub
Agrandir un formulaire
Agrandir un formulaire à la taille de la fenêtre Excel (l'écran). A réaliser dans une procédure évènementielle "activate" pour formulaire
Private Sub UserForm_Activate()
UserForm1.Width = Application.Width
UserForm1.Height = Application.Height
UserForm1.Left = 0
UserForm1.Top = 0
End Sub
UserForm1.Width = Application.Width
UserForm1.Height = Application.Height
UserForm1.Left = 0
UserForm1.Top = 0
End Sub
Afficher une image
' Afficher une image dans un formulaire
mon_FRM_amoi.Picture = LoadPicture("c:\windows\Bulles de savon.bmp")
mon_FRM_amoi.Picture = LoadPicture("c:\windows\Bulles de savon.bmp")
Les propriétés d'un formulaire
Faire apparaître le Tableau des propriétés d'un UserForm (Formulaire utilisateur)| Propriété | Description |
|---|---|
| (Name) | Renvoie le nom de l'objet |
| BackColor | Spécifie la couleur de fond |
| BorderColor | Spécifie la couleur de bordure |
| BorderStyle | Spécifie le style de bordure |
| Caption | Spécifie le texte affiché dans la barre de titre |
| Cycle | Spécifie l'action à effectuer lorsque l'utilisateur quitte le dernier contrôle |
| DrawBuffer | Spécifie le nombre de pixels de la mémoire tampon vidéo utilisée pour le rafraichissement de l'image |
| Enabled | Spécifie si l'objet peut recevoir le focus et répondre aux événements générés par l'utilisateur |
| DrawBuffer | Spécifie le nombre de pixels de la mémoire tampon vidéo utilisée pour le rafraichissement de l'image |
| Forecolor | Définit la couleur de la police |
| Height | Définit la dimension verticale |
| HelpContextID | Spécifie la rubrique d'un fichier d'aide |
| KeepScrollBarsVisible | Spécifie si les barres de défilement sont visibles |
| Left | Définit la position par rapport au bord gauche de l'application |
| MouseIcon | Affecte un icône personnalisé |
| MousePointer | Spécifie le type de pointeur |
| Picture | Spécifie l'image de fond dans l'UserForm |
| PictureAlignment | Spécifie l'alignement de l'image de fond |
| PictureSizeMode | Spécifie comment afficher une image de fond |
| PictureTiling | Permet d'afficher l'image en mosaïque |
| RightToLeft | Indique le sens d'affichage du texte et contrôle l'apparence visuelle sur un système bidirectionnel. |
| ScrollBars | Indiquee si les barres de défilement verticales et horizontales doivent être affichées |
| ScrollHeight | Spécifie la hauteur de la zone totale pouvant être affichée en déplaçant la barre de défilement |
| ScrollLeft | Spécifie la distance, du bord gauche de la partie visible, à partir du bord gauche du UserForm |
| ScollTop | Spécifie la distance, du bord supérieur de la partie visible, à partir du bord supérieur du UserForm |
| ScrollWidth | Spécifie la largeur de la zone totale pouvant être affichée en déplaçant la barre de défilement |
| ShowModal | Indique si la boîte de dialogue est modale |
| SpecialEffect | Spécifie l'aspect du UserForm à l'écran |
| StartUpPosition | Indique la position du UserForm lors de sa première apparition |
| Tag | Permet de stocker des informations supplémentaires |
| Top | Définit la position par rapport au bord supérieur de l'application |
| WhatsThisButton | Indique si le bouton d'aide "Qu'est-ce que c'est" apparaît sur la barre de titre |
| WhatsThisHelp | Indique si l'aide contextuelle utilise la fenêtre automatique fournie par l'aide de Windows ou la fenêtre d'aide principale |
| Width | Définit la dimension horizontale |
| Zoom | Spécifie le changement de taille de l'objet |
| Visible | Spécifie si l'objet est masqué ou affiché. |
Source du tableau: Developpez.com
