Macro pour modifier les dimensions des UserForms, Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x