userform_resize vba Résolu/Fermé

Question

Bonjour, 
J'aimerais juste que l'on m'explique comment utiliser la declaration  RESIZE d'un userform.
Pour Les autres, on trouve quelques explications sur le net mais là rien !

Private Sub UserForm_Resize()
'?????
End Sub

Merci


Configuration: Windows 7 / Firefox 13.0.1

eriiic · Answer

Bonsoir,

Habitude à prendre : regarder l'aide excel vba :

Resize, événement, exemple
L'exemple suivant utilise les événements Activate et Click pour illustrer le déclenchement de l'événement Resize de l'objet UserForm. Dès que l'utilisateur clique sur la zone client de la feuille, celle-ci s'agrandit ou rétrécit et la nouvelle hauteur s'affiche dans la barre de titre. Notez que la propriété Tag est utilisée pour consigner la hauteur initiale de l'objet UserForm.

' Événement Activate pour UserForm1
Private Sub UserForm_Activate()
    UserForm1.Caption = "Cliquez sur moi pour m'agrandir!"
    Tag = Height    ' Enregistre la hauteur initiale.
End Sub

' Événement Click pour UserForm1
Private Sub UserForm_Click()
    Dim NewHeight As Single
    NewHeight = Height
    ' Si la feuille est petite: agrandissement.
    If NewHeight = Val(Tag) Then
        Height = Val(Tag) * 2
    Else
    ' Si la feuille est grande: réduction.
        Height = Val(Tag)
    End If
End Sub

' Événement Resize pour UserForm1
Private Sub UserForm_Resize()
    UserForm1.Caption = "Nouvelle hauteur: " & _
    Height &  "  " & "Cliquez pour me redimensionner!"
End Sub

eric

hunter · Answer

bonjour eriiic,

Maintenant, je comprends mieux à quoi sert l'événement Resize  !
J'avais pourtant regardé dans mon aide vba mais aucune explication pour l'événement, peut être lié à excel 2003 (moins détaillé)!
En tout cas, merci pour cet exemple concret et simple de compréhension.

Userform_resize vba

2 réponses

Discussions similaires