Discussion :

[skorpio]

Bonjour à tous....

comme mon titre l'indique je souhaiterai savoir comment reduire un Userform?
qu'il se range comme un fenêtre Windows en bas

[skorpio]

je sais pas si j'ai été clair, peut-être ce n'est pas possible????

[zazaraignée]

Les UserForms n'ont pas étées prévues pour ça. Tu peux la mettre non modale (Propriété ShowModal = False).

[skorpio]

j'ai trouvé quelque chose pour ceux que ça interesse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

mettre ce code dans le mod de ton USERFORM et le tour et joué