SiD88
XLDnaute Junior
Bonjour à tous,
J'ai réaliser une liste déroulante sur laquelle j'ai rajouter la petite barre de réduction.
Le problème est lorsque je minimise mon Useform, il vient s'installer en bas à gauche de mon écran, masquant alors les titres et l'accès aux feuilles de mon classeur.
Existe t il une possibilité pour choisir le lieu de cette minimisation sur l'écran?
voici le bout de code correspondant à l'action de minimisation.
Private Sub UserForm_Initialize()
Remplissage
Me.StartUpPosition = 2
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
Dim hSysMenu As Long
End Sub
Merci
J'ai réaliser une liste déroulante sur laquelle j'ai rajouter la petite barre de réduction.
Le problème est lorsque je minimise mon Useform, il vient s'installer en bas à gauche de mon écran, masquant alors les titres et l'accès aux feuilles de mon classeur.
Existe t il une possibilité pour choisir le lieu de cette minimisation sur l'écran?
voici le bout de code correspondant à l'action de minimisation.
Private Sub UserForm_Initialize()
Remplissage
Me.StartUpPosition = 2
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
Dim hSysMenu As Long
End Sub
Merci