Figer un USF

[Luke]

Bonjour,

comment figer un userform à l'écran, ne plus pouvoir le déplacer en cliquant sur la barre des titres par exemple.

Merci pour votre aide

Luke

 

[Vériland]

Bonsoir Luke et toi le Forum,

Moi j'utilise cette procédure...

Option Explicit

Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Sub UserForm_Activate()

Const Position = &H400
Dim Menu As Long
Dim Valeur As Long

Menu = GetSystemMenu(GetActiveWindow(), False)
Valeur = RemoveMenu(Menu, 1, Position)
Valeur = DrawMenuBar(Menu)

End Sub

...Tu colles l'ensemble dans le module d'un Userform déclaration des fonctions API comprises...avec ça l'userform reste bloqué...

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...