Ajout minimiz à une Userform

Bonjour,

Comment peut-on ajouter au niveau d'une userform le petit tiré pour minimisé au lieu de fermer avec le X?

Merci pour votre aide.

Crdt.

Rebonjour,

J'ai trouvé ce code et ça marche :

Private Declare Function FindWindowA& Lib "User32" (ByVal lpClassName$, ByVal lpWindowName$)

Private Declare Function EnableWindow& Lib "User32" (ByVal hWnd&, ByVal bEnable&)

Private Declare Function GetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&)

Private Declare Function SetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)

Private Sub UserForm_Activate()

EnableWindow FindWindowA("XLMAIN", Application.Caption), 1

End Sub

Private Sub UserForm_Initialize()

Dim hWnd As Long

hWnd = FindWindowA(vbNullString, Me.Caption)

SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000

End Sub