Click bouton "Réduire".

[Hulk]

Hello le Forum,

J'ai un UserForm avec un code qui permet de réduire et agrandir l'USF.

Je souhaite simuler le click du bouton "Réduire" de l'USF.
Je me demande si possible.

Voir le fichier joint avec la demande un peu plus précise.

Quelqu'un a la gentillesse de me mettre sur la piste..

Merci pour votre aide.

Bonne fin de semaine d'esclavage et bon début de weekend à tous 😀

Hulk.

 

[job75]

Re : Click bouton "Réduire".

Bonjour Hulk,

Une solution pour réduire l'USF, écrire dans le code du bouton :

SendKeys "% u"

et si l'on voulait agrandir :

SendKeys "% n"

pour restaurer :

SendKeys "% r"

A+

 

[pascal21]

Re : Click bouton "Réduire".

Bonjour Hulk,

Une solution pour réduire l'USF, écrire dans le code du bouton :

SendKeys "% u"

et si l'on voulait agrandir :

SendKeys "% n"

pour restaurer :

SendKeys "% r"

A+

bonjour hulk , job
si ça marche ça, faut que j'y garde dans un coin de mon pc, ça peut servir
j'va essayer chez moi

 

[job75]

Re : Click bouton "Réduire".

Re,

Oui Pascal, mais il faut d'abord que les boutons Réduire et Agrandir soient créés.

A+

 

[pascal21]

Re : Click bouton "Réduire".

re job
alors j'ai pas compris je viens d'eessayer et comme ça ça ne fonctionne pas
estce que ça remplace 'unload me' pour fermer par exemple
tel quel, ça m'ouvre une fenetre "deplacer ou fermer 'alt f4'

 

[job75]

Re : Click bouton "Réduire".

Re,

T'as pas bien suivi Pascal !

 

[Hulk]

Re : Click bouton "Réduire".

Hello,

Ok impec Job !

Bonne journée.

Hulk.

 

[Hulk]

Re : Click bouton "Réduire".

Re,

Pour Pascal21

Cdt.

 

[pascal21]

Re : Click bouton "Réduire".

merci hulk pour le fichier exemple
effectivement ,je n'avais pas compris ce que tu voulais

 

[job75]

Re : Click bouton "Réduire".

Re Hulk, Pascal,

En fait je n'aime pas trop utiliser des touches de raccourci (sauf les très classiques Alt+F4 etc...), car il se peut qu'elles soient modifiées par Microsoft dans des versions ultérieures d'Excel (ou être différentes sur d'anciennes versions).

Il vaut mieux utiliser un code plus pérenne mais là je n'en vois pas. Je vais chercher un peu quand même.

A+

 

[job75]

Re : Click bouton "Réduire".

Re,

Voilà, j'ai trouvé ce fil de 2004 :

https://www.excel-downloads.com/threads/comment-reduire-un-userform.29064/

avec le code :

Dim Hwnd&

Private Sub CommandButton1_Click() 'le bouton en question
[COLOR="Red"]ShowWindow Hwnd, 2[/COLOR] '3 pour agrandir,1 normal, et unload me pour quitter
End Sub

A vérifier.

A+

Edit : ça ne marche pas 🙁 ShowWindow n'est pas reconnu...

 

[Hulk]

Re : Click bouton "Réduire".

Hello,

Hm chez moi ça ne joue pas Job -> "Sub ou Function non définie"

Peut-être une référence à cocher ?
Perso j'utilise Office 2003... peut-être pas compatible ?

Au plaisir.

Hulk.