Supprimer la barre bleue d'une USER

[ericTA]

Bonjour,
Est-t-il possible de supprimer la barre bleue d'une USER?
Merci d'avace.
Eric

 

[Pierrot93]

Re : Supprimer la barre bleue d'une USER

Re,

regarde ce lien :
https://www.excel-downloads.com/threads/supprimer-bande-bleue-usf.48470/

 

[Vinc]

Re : Supprimer la barre bleue d'une USER

Bonjour ÉricTA, oui il est possible d'effacer la bande bleue, j'utilise ce code :

Dans un Module :

Declare Function GetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Sub CACHER_LA_BANDE_BLEUE(USF As UserForm)
Dim hwnd&
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", USF.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And Not &HC00000: DrawMenuBar hwnd
End Sub

Ensuite à init de ton UserForm

Call CACHER_LA_BANDE_BLEUE(Me)

 

[ericTA]

Re : Supprimer la barre bleue d'une USER

Simplement Merci
Eric