Réduire et agrandir un userform

[Yves]

Bonjour à tous
Ne trouvant pas de réponse à ma question sur le net, je m'adresse à vous. Qui peux me dire comment faire une macro qui doterait mon userform des boutons de réduction et d'agrandissement dans le bandeau, à côté de la croix rouge ?
Merci d'avance.

 

[MichelXld]

bonjour Yves

la solution proposée par Zon , dans ce lien devrait t'aider

Lien supprimé


bon apres midi
MichelXld

 

[Yves]

Bonsoir Michel
Je te remercie de ton aide. Saurais-tu comment neutraliser la fermeture de l'userform avec la croix rouge ? Merci.

 

[Alain CROS]

Bonjour.

Ajouter un appel à No_X dans UserForm_Activate.

Private Declare Function DeleteMenu& _
Lib 'user32' _
(ByVal hMenu&, ByVal nPosition&, ByVal wFlags&)

Private Declare Function GetSystemMenu& _
Lib 'user32' _
(ByVal hwnd&, ByVal bRevert&)

Sub No_X()
Const SC_CLOSE& = &HF060&, MF_BYCOMMAND& = &H0&
DeleteMenu GetSystemMenu(Me.hwnd, False), SC_CLOSE, MF_BYCOMMAND
End Sub

Sub RemetX()
GetSystemMenu Me.hwnd, True
End Sub

Alain CROS