Créer un bouton Réduire dans un Userform

[TheProdigy]

Bonjour tout le monde,

Existe il un moyen (Code VBA) pour créer un bouton Réduire userform.
Prière de m donner un exemple s'il existe ou seulement m'expliquer car je suis un débutant.

Merci à tous.

 

[laetitia90]

Re : Créer un bouton Réduire dans un Userform

bonjour adilprodigy
essai ce code

 

[TheProdigy]

Re : Créer un bouton Réduire dans un Userform

Bonjour laetitia90,

J'aime bien ta réponse et ton Avatar😀.

Merci infiniment exactement ce que je cherche.

 

[TheProdigy]

Re : Créer un bouton Réduire dans un Userform

J'ai essayé mais ça ne marche pas. Est-ce parce que j'ai Excel 2007?

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Dim wLong As Long
Const GWL_STYLE = (-16), GWL_EXSTYLE = (-20), WS_SIZEBOX = &H40000, WS_TROIS_BOUTON = &H70000, WS_EX_APPWINDOW = &H40000
Private Sub UserForm_Initialize()
hwnd = FindWindow(vbNullString, Me.Caption)
wLong = GetWindowLongA(hwnd, GWL_STYLE) Or WS_SIZEBOX Or WS_TROIS_BOUTON
SetWindowLong hwnd, GWL_STYLE, wLong
End Sub

 

[laetitia90]

Re : Créer un bouton Réduire dans un Userform

re si tu pouvez envoyer un fichier avec ce code enregister au format 2007 que je puisse tester!!!

 

[TheProdigy]

Re : Créer un bouton Réduire dans un Userform

Re Bonjour,

Voilà.

Cijoint.fr - Service gratuit de dépôt de fichiers

Merci.

 

[laetitia90]

Re : Créer un bouton Réduire dans un Userform

re, effectivement j'ai teste avec 2007 idem souci
esssai de rajouter une variable

Dim hwnd As Long

en haut ou dans initialise si
pas marcher je regarderais demain cette API pour l'adapter a 2007

 

[TheProdigy]

Re : Créer un bouton Réduire dans un Userform

Oh laetitia90 ça marche merci infiniment il manquait ta petite ligne

Dim hwnd As Long

Merci infiniment