Userform_resize vba
Résolu
hunter
-
hunter -
hunter -
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 !
Merci
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
A voir également:
- Vba userform resize
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
2 réponses
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
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
