Bouton reduire dans userform

Fermé
jeje - 4 janv. 2010 à 10:00
pilas31 Messages postés 1823 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 4 janv. 2010 à 12:16
Bonjour,j'aimerai avoir un bouton réduire à coté de celui Fermer en haut à droite d'un userform, est ce possible?

Merci

1 réponse

pilas31 Messages postés 1823 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 636
4 janv. 2010 à 12:16
Bonjour,

A ma conaissance ce n'est pas possible avec les propriétés des userform ou les fonctions standards VBA. Mais je peux me tromper, en particulier peut-être que dans Excel 2007 il y a une évolution que j'ignore.

En tout cas ce n'est faisable d'aprés moi qu'en utilisant les APIs Windows.

C'est sans doute pas trés recommandé mais j'ai trouvé sur un site un code qui fonctionne en collant le code suivant dans le code associé à l'userform :

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


A+
3