Userform_resize vba
Résolu/Fermé
A voir également:
- Vba userform resize
- Resize image - Télécharger - Divers Photo & Graphisme
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
2 réponses
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
19 juin 2012 à 23:08
19 juin 2012 à 23:08
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
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.
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.
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
20 juin 2012 à 10:00
20 juin 2012 à 10:00
J'ai 2003 aussi.
Il faut regarder dans l'aide vba (pas excel feuilles) et rechercher le nom du contrôle.
eric
Il faut regarder dans l'aide vba (pas excel feuilles) et rechercher le nom du contrôle.
eric
