Minimiser un userform

[bernardrustrel]

Bonsoir
Sur le fichier joint j'ai réussi en m'aidant du net à mettre le boutons= "reduction" du userform et à l'utiliser.
Cependant, j'aimerais pouvoir minimiser mon userform en actionnant le bouton "test".
Si l'un de vous avait une idée je l'en remercie par avance.
Cordialement
bernard

 

[Roland_M]

Re : Minimiser un userform

bonsoir

j'ai fais des recherches et des essais j'ai trouvé ceci !
dans code tu mets ceci:

Private Sub CommandButton1_Click()
Dim Hwnd As Long
Hwnd = FindWindowA(vbNullString, Me.Caption)
ShowWindow Hwnd, 2
End Sub

 

[bernardrustrel]

Re : Minimiser un userform

Bonjour Cel marche à la perfection. Je t'en remercie grandement, je pouvir finaliser mon projet.
Encore merci.
Cordialement.
Bernard

 

[david84]

Re : Minimiser un userform

Bonjour, salut Roland,
au regard de ton exemple le code peut éventuellement être simplifié (mais je ne connais pas l'intégralité de ton fichier réel) :

Private Declare Function FindWindowA& Lib "User32" (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function GetWindowLongA& Lib "User32" (ByVal Hwnd&, ByVal nIndex&)
Private Declare Function SetWindowLongA& Lib "User32" (ByVal Hwnd&, ByVal nIndex&, ByVal dwNewLong&)
Private Declare Function ShowWindow& Lib "User32" (ByVal Hwnd&, ByVal nCmdShow&)

Dim Hwnd As Long

Private Sub CommandButton1_Click()
'minimise par bouton
    ShowWindow Hwnd, 2
End Sub

Private Sub UserForm_Initialize()
'Initialisation du bouton minimiser
    Hwnd = FindWindowA(vbNullString, Me.Caption)
    SetWindowLongA Hwnd, -16, GetWindowLongA(Hwnd, -16) Or &H20000
End Sub

A+

 

[Roland_M]

Re : Minimiser un userform

bonjour,

Merci David pour ce complément d'info !
car je n'était que dans un essai ! certes concluant mais un essai !