Discussion :

[Jean-Pierre49]

Bonjour à tous,
Y a t’il une méthode plus radicale que l’événement Sub UserForm_Layout
Pour empecher le déplacement de l’USF car malgré

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

L’ affichage bouge

[Jean-Pierre49]

En me promenant .........

Methode radicale :

"Pour empécher un UserForm de bouger, il faut supprimer l'item Déplacement de son menu system."

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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 MF_BYPOSITION = &H400
    Dim hSysMenu As Long
 
   hSysMenu = GetSystemMenu(GetActiveWindow(), False)
            retval = RemoveMenu(hSysMenu, 1, MF_BYPOSITION)
    retval = DrawMenuBar(hSysMenu)
 
End Sub