Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pascal Engelmajer
Salut, remplacer la zone de titre par une zone de libellé (label) -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Emilie" a écrit dans le message de news: e94a01c43ccb$6c7e4a20$ Bonjour à tous
J'ai crée une User form.
J'aimerais en cliquant ou double cliquant sur la barre de titre de la User form réduire ou agrandir la User form.
J'ai crée une macro qui marche mais qui ne fonctionne qu'en cliquant à l'intérieur de la user form et non sur le titre.
Private Sub UserForm_Activate()
Tag = Height
End Sub
Private Sub UserForm_Click()
Dim NewHeight As Single NewHeight = Height If NewHeight = Val(Tag) Then Height = 42 Else Height = Val(Tag) End If
End Sub
Quelqu'un a t-il une idée pour affecter correctement cette macro à la zone de titre ?
Par avance merci
Emilie
Salut,
remplacer la zone de titre par une zone de libellé (label)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Emilie" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: e94a01c43ccb$6c7e4a20$a001280a@phx.gbl...
Bonjour à tous
J'ai crée une User form.
J'aimerais en cliquant ou double cliquant sur la barre de
titre de la User form réduire ou agrandir la User form.
J'ai crée une macro qui marche mais qui ne fonctionne
qu'en cliquant à l'intérieur de la user form et non sur le
titre.
Private Sub UserForm_Activate()
Tag = Height
End Sub
Private Sub UserForm_Click()
Dim NewHeight As Single
NewHeight = Height
If NewHeight = Val(Tag) Then
Height = 42
Else
Height = Val(Tag)
End If
End Sub
Quelqu'un a t-il une idée pour affecter correctement cette
macro à la zone de titre ?
Salut, remplacer la zone de titre par une zone de libellé (label) -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Emilie" a écrit dans le message de news: e94a01c43ccb$6c7e4a20$ Bonjour à tous
J'ai crée une User form.
J'aimerais en cliquant ou double cliquant sur la barre de titre de la User form réduire ou agrandir la User form.
J'ai crée une macro qui marche mais qui ne fonctionne qu'en cliquant à l'intérieur de la user form et non sur le titre.
Private Sub UserForm_Activate()
Tag = Height
End Sub
Private Sub UserForm_Click()
Dim NewHeight As Single NewHeight = Height If NewHeight = Val(Tag) Then Height = 42 Else Height = Val(Tag) End If
End Sub
Quelqu'un a t-il une idée pour affecter correctement cette macro à la zone de titre ?
Par avance merci
Emilie
Pascal Engelmajer
Salut, voir http://www.ilyap.net/usrSansBarreTitre.xls -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Emilie" a écrit dans le message de news: e94a01c43ccb$6c7e4a20$ Bonjour à tous
J'ai crée une User form.
J'aimerais en cliquant ou double cliquant sur la barre de titre de la User form réduire ou agrandir la User form.
J'ai crée une macro qui marche mais qui ne fonctionne qu'en cliquant à l'intérieur de la user form et non sur le titre.
Private Sub UserForm_Activate()
Tag = Height
End Sub
Private Sub UserForm_Click()
Dim NewHeight As Single NewHeight = Height If NewHeight = Val(Tag) Then Height = 42 Else Height = Val(Tag) End If
End Sub
Quelqu'un a t-il une idée pour affecter correctement cette macro à la zone de titre ?
Par avance merci
Emilie
Salut,
voir http://www.ilyap.net/usrSansBarreTitre.xls
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Emilie" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: e94a01c43ccb$6c7e4a20$a001280a@phx.gbl...
Bonjour à tous
J'ai crée une User form.
J'aimerais en cliquant ou double cliquant sur la barre de
titre de la User form réduire ou agrandir la User form.
J'ai crée une macro qui marche mais qui ne fonctionne
qu'en cliquant à l'intérieur de la user form et non sur le
titre.
Private Sub UserForm_Activate()
Tag = Height
End Sub
Private Sub UserForm_Click()
Dim NewHeight As Single
NewHeight = Height
If NewHeight = Val(Tag) Then
Height = 42
Else
Height = Val(Tag)
End If
End Sub
Quelqu'un a t-il une idée pour affecter correctement cette
macro à la zone de titre ?
Salut, voir http://www.ilyap.net/usrSansBarreTitre.xls -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Emilie" a écrit dans le message de news: e94a01c43ccb$6c7e4a20$ Bonjour à tous
J'ai crée une User form.
J'aimerais en cliquant ou double cliquant sur la barre de titre de la User form réduire ou agrandir la User form.
J'ai crée une macro qui marche mais qui ne fonctionne qu'en cliquant à l'intérieur de la user form et non sur le titre.
Private Sub UserForm_Activate()
Tag = Height
End Sub
Private Sub UserForm_Click()
Dim NewHeight As Single NewHeight = Height If NewHeight = Val(Tag) Then Height = 42 Else Height = Val(Tag) End If
End Sub
Quelqu'un a t-il une idée pour affecter correctement cette macro à la zone de titre ?
Par avance merci
Emilie
Emilie
Bonjour Pascal,
Je ne comprends pas bien ta réponse.
En fait j'aimerais ne pas créer aucun contrôle supplémentaire et essayer de tirer partie d'un évènement de UserForm pour résoudre mon problème.
C'est ce que j'ai essayé de faire avec mon exemple de code, mais il faut cliquer à l'intérieur de la userform pour que ça marche.
Ce serait plus sympa si on pouvait cliquer sur la barre de titre de la user form (à l'endroit où s'inscrit Caption)
Cordialement.
Emilie
-----Message d'origine----- Salut, remplacer la zone de titre par une zone de libellé (label) -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque. http://www.ilyapa.net/excel "Emilie" a écrit dans le message de
news: e94a01c43ccb$6c7e4a20$ Bonjour à tous
J'ai crée une User form.
J'aimerais en cliquant ou double cliquant sur la barre de titre de la User form réduire ou agrandir la User form.
J'ai crée une macro qui marche mais qui ne fonctionne qu'en cliquant à l'intérieur de la user form et non sur le titre.
Private Sub UserForm_Activate()
Tag = Height
End Sub
Private Sub UserForm_Click()
Dim NewHeight As Single NewHeight = Height If NewHeight = Val(Tag) Then Height = 42 Else Height = Val(Tag) End If
End Sub
Quelqu'un a t-il une idée pour affecter correctement cette macro à la zone de titre ?
Par avance merci
Emilie
.
Bonjour Pascal,
Je ne comprends pas bien ta réponse.
En fait j'aimerais ne pas créer aucun contrôle
supplémentaire et essayer de tirer partie d'un évènement
de UserForm pour résoudre mon problème.
C'est ce que j'ai essayé de faire avec mon exemple de
code, mais il faut cliquer à l'intérieur de la userform
pour que ça marche.
Ce serait plus sympa si on pouvait cliquer sur la barre de
titre de la user form (à l'endroit où s'inscrit Caption)
Cordialement.
Emilie
-----Message d'origine-----
Salut,
remplacer la zone de titre par une zone de libellé (label)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Emilie" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: e94a01c43ccb$6c7e4a20$a001280a@phx.gbl...
Bonjour à tous
J'ai crée une User form.
J'aimerais en cliquant ou double cliquant sur la barre de
titre de la User form réduire ou agrandir la User form.
J'ai crée une macro qui marche mais qui ne fonctionne
qu'en cliquant à l'intérieur de la user form et non sur le
titre.
Private Sub UserForm_Activate()
Tag = Height
End Sub
Private Sub UserForm_Click()
Dim NewHeight As Single
NewHeight = Height
If NewHeight = Val(Tag) Then
Height = 42
Else
Height = Val(Tag)
End If
End Sub
Quelqu'un a t-il une idée pour affecter correctement cette
macro à la zone de titre ?
En fait j'aimerais ne pas créer aucun contrôle supplémentaire et essayer de tirer partie d'un évènement de UserForm pour résoudre mon problème.
C'est ce que j'ai essayé de faire avec mon exemple de code, mais il faut cliquer à l'intérieur de la userform pour que ça marche.
Ce serait plus sympa si on pouvait cliquer sur la barre de titre de la user form (à l'endroit où s'inscrit Caption)
Cordialement.
Emilie
-----Message d'origine----- Salut, remplacer la zone de titre par une zone de libellé (label) -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque. http://www.ilyapa.net/excel "Emilie" a écrit dans le message de
news: e94a01c43ccb$6c7e4a20$ Bonjour à tous
J'ai crée une User form.
J'aimerais en cliquant ou double cliquant sur la barre de titre de la User form réduire ou agrandir la User form.
J'ai crée une macro qui marche mais qui ne fonctionne qu'en cliquant à l'intérieur de la user form et non sur le titre.
Private Sub UserForm_Activate()
Tag = Height
End Sub
Private Sub UserForm_Click()
Dim NewHeight As Single NewHeight = Height If NewHeight = Val(Tag) Then Height = 42 Else Height = Val(Tag) End If
End Sub
Quelqu'un a t-il une idée pour affecter correctement cette macro à la zone de titre ?
Par avance merci
Emilie
.
Emilie
Merci pour ta réponse mais le lien ne fonctionne pas
Amicalement
Emilie
-----Message d'origine----- Salut, voir http://www.ilyap.net/usrSansBarreTitre.xls -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque. http://www.ilyapa.net/excel "Emilie" a écrit dans le message de
news: e94a01c43ccb$6c7e4a20$ Bonjour à tous
J'ai crée une User form.
J'aimerais en cliquant ou double cliquant sur la barre de titre de la User form réduire ou agrandir la User form.
J'ai crée une macro qui marche mais qui ne fonctionne qu'en cliquant à l'intérieur de la user form et non sur le titre.
Private Sub UserForm_Activate()
Tag = Height
End Sub
Private Sub UserForm_Click()
Dim NewHeight As Single NewHeight = Height If NewHeight = Val(Tag) Then Height = 42 Else Height = Val(Tag) End If
End Sub
Quelqu'un a t-il une idée pour affecter correctement cette macro à la zone de titre ?
Par avance merci
Emilie
.
Merci pour ta réponse mais le lien ne fonctionne pas
Amicalement
Emilie
-----Message d'origine-----
Salut,
voir http://www.ilyap.net/usrSansBarreTitre.xls
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Emilie" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: e94a01c43ccb$6c7e4a20$a001280a@phx.gbl...
Bonjour à tous
J'ai crée une User form.
J'aimerais en cliquant ou double cliquant sur la barre de
titre de la User form réduire ou agrandir la User form.
J'ai crée une macro qui marche mais qui ne fonctionne
qu'en cliquant à l'intérieur de la user form et non sur le
titre.
Private Sub UserForm_Activate()
Tag = Height
End Sub
Private Sub UserForm_Click()
Dim NewHeight As Single
NewHeight = Height
If NewHeight = Val(Tag) Then
Height = 42
Else
Height = Val(Tag)
End If
End Sub
Quelqu'un a t-il une idée pour affecter correctement cette
macro à la zone de titre ?
Merci pour ta réponse mais le lien ne fonctionne pas
Amicalement
Emilie
-----Message d'origine----- Salut, voir http://www.ilyap.net/usrSansBarreTitre.xls -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque. http://www.ilyapa.net/excel "Emilie" a écrit dans le message de
news: e94a01c43ccb$6c7e4a20$ Bonjour à tous
J'ai crée une User form.
J'aimerais en cliquant ou double cliquant sur la barre de titre de la User form réduire ou agrandir la User form.
J'ai crée une macro qui marche mais qui ne fonctionne qu'en cliquant à l'intérieur de la user form et non sur le titre.
Private Sub UserForm_Activate()
Tag = Height
End Sub
Private Sub UserForm_Click()
Dim NewHeight As Single NewHeight = Height If NewHeight = Val(Tag) Then Height = 42 Else Height = Val(Tag) End If
End Sub
Quelqu'un a t-il une idée pour affecter correctement cette macro à la zone de titre ?
