reduction d'une userform

Bonsoir mini_bn42;
Module UserForm:
Private Declare Function SetWindowLong& _
Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd&, ByVal nIndex&, ByVal wNewWord&)
Private Declare Function FindWindow& _
Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String _
, ByVal lpWindowName As String)
Private Declare Function EnableWindow& _
Lib "user32" (ByVal hwnd&, ByVal fEnable&)
Private Declare Function ShowWindow& _
Lib "user32" (ByVal hwnd&, ByVal nCmdShow&)
Private hwnd As Long

Private Sub UserForm_Activate()
ShowWindow hwnd, 6
End Sub

Private Sub UserForm_Initialize()
hwnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hwnd, -16, &H84CA0080
EnableWindow hwnd, 1
End Sub

Module Standard:
Sub FormShow()
#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If
End Sub

MP

"mini_bn42" <minibn42@discussions.microsoft.com> a écrit dans le message de
news: 59D2DDC9-3BB3-427F-9F73-E50CFE8E5E53@microsoft.com...

Bonjour à tous,

J'aimerais savoir comment faire sous vba pour qu'une userform possède un
bouton permettant de réduire la fenêtre, et comment faire pour que la
fenetre

soit par défaut deja réduite.
Merci pour votre aide.

Bonsoir à toi Pierre,

Merci beaucoup pour ton aide. Bye

rebonsoir,

Juste uen derniere petite question. Comment faire pour que ma userform soit
dotée d'un bouton de réduction qui place ma fenetre dans la barre des tâches
de Windows, et pour que cette réduction soit aussi par défaut.
Encore une fois merci d'avance pour votre aide

Re mini_bn42;
Modifie la procédure évènementielle Activate comme suit:

Private Sub UserForm_Activate()
ShowWindow hwnd, 0
SetWindowLong hwnd, -20, &H40101
ShowWindow hwnd, 6
End Sub

MP

"mini_bn42" <minibn42@discussions.microsoft.com> a écrit dans le message de
news: E15EA7BC-7F5C-4A99-8262-6D91349FEDAC@microsoft.com...

rebonsoir,

Juste uen derniere petite question. Comment faire pour que ma userform
soit

dotée d'un bouton de réduction qui place ma fenetre dans la barre des
tâches

de Windows, et pour que cette réduction soit aussi par défaut.
Encore une fois merci d'avance pour votre aide