Zon

Salut,

Pour réduire dans la barre des tâches, à partir d'un bouton par exemple

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

Dim Hwnd&

Private Sub CommandButton1_Click() 'le bouton en question
ShowWindow Hwnd, 2 '3 pour agrandir,1 normal, et unload me pour quitter
End Sub

Private Sub UserForm_Activate()
ShowWindow Hwnd, 0
SetWindowLong Hwnd, -20, &H40101
ShowWindow Hwnd, 1
End Sub

Private Sub UserForm_Initialize()
Hwnd = FindWindow(vbNullString, Me.Caption)
End Sub

Il ne faut pas oublier de mettre en mode modal au lancement de ton USF (nomusf.show 0) pour pouvoir écrire dans tes cellules.

A+++