L’exemple suivant montre que vous pouvez ajuster la taille d’un UserForm pendant qu’il est affiché. C’est ainsi que vous enregistrez les valeurs actuelles pour la hauteur et la largeur de votre UserForm immédiatement après l’avoir appelé. Pour ce faire, utilisez l’événement UserForm_Activate. D’un simple clic sur le UserForm, il est agrandi de 50%. Un autre clic sur l’UserForm restaure les dimensions d’origine. Utilisez l’événement UserForm_Click pour intercepter les clics sur le UserForm. Les dimensions actuelles doivent toujours être affichées dans la barre de titre du UserForm. Dès qu’un UserForm change de taille, ce changement est enregistré via l’événement UserForm_Resize, que vous utilisez ensuite pour modifier la barre de titre.
Dim Hauteur As Integer Dim Largeur As Integer Private Sub UserForm_Activate () UserForm5.Caption = _ "Veuillez cliquer sur le formulaire" Hauteur = Height Largeur = Width End Sub
Commentaires
■ Définissez deux variables globales dans lesquelles vous enregistrez la hauteur et la largeur actuelles du UserForm.
■ Donnez à la barre de titre du UserForm un titre à l’aide de la propriété Caption.
■ Capturez maintenant les clics de souris en évaluant l’événement UserForm_Click.
Private Sub UserForm_Click () Dim nouvelleHauteur As Integer Dim nouvelleLargeur As Integer nouvelleHauteur = Height nouvelleLargeur = Width If nouvelleHauteur = Height And nouvelleLargeur = Width Then Height = Hauteur * 1.5 Width = Largeur * 1.5 Else Height = Hauteur Width = Largeur End If End Sub
Commentaires
■ Dans la première étape, définissez deux variables de type Integer dans lesquelles vous enregistrez les dimensions actuelles du UserForm.
■ Vous pouvez maintenant modifier ces dimensions en agrandissant les dimensions actuelles d’un facteur 1,5.
■ Lorsque vous cliquez à nouveau sur UserForm, les dimensions d’origine sont à nouveau définies, que vous avez précédemment enregistrées dans les variables globales hauteur et largeur.
■ Utilisez le dernier événement pour afficher les modifications des dimensions du formulaire utilisateur dans la barre de titre.
Private sub user UserForm_Resize ()
UserForm5.Caption = "Nouvelle hauteur:" & Height & _
"/ New Width:" & Width End Sub
Si vous souhaitez afficher le nom de votre société comme titre dans UserForm, utilisez l'événement UserForm_Initialize et accédez aux propriétés du document.
Sub UserForm_Initialize()
UserForm1.Caption = _
ActiveSheet.Parent.BuiltinDocumentProperties("Company")
End Sub
La propriété BuiltInDocumentProperties renvoie une collection DocumentProperties qui représente toutes les propriétés de document intégrées pour le classeur spécifié. Vous pouvez afficher les propriétés du document en sélectionnant la commande PROPRIÉTÉS dans le menu FICHIER.