Discussion :

[Touffe54]

Bonsoir,

Comment peut on empêcher de déplacer un UserForm, quand on a désactivé le ScreenUpdating.

J'ai trouvé une solution dans la F.A.Q. avec l'évènement layout, mais le résultat n'est pas concluant : on peut toujours bouger la fenêtre, l'évènement layout intervenant une fois qu'on a laché le bouton de la souris.

Merci de m'éclairer.

[ESVBA]

la seule que je connaisse est de supprimer le titre de la fenêtre par API Windows (Voir la FAQ) et de la remplacer par une étiquette.

ESVBA

[babaothe]

salut

pas sûr d'avoir bien compris ce que tu veux faire et pourquoi tu veux le faire.

Si c'est ceci : "empêcher le déplacement quand screenupdating = False et l'autoriser quand = True ", voilà, parmi d'autres, une manière ===>>>

1) tout en haut (dans la partie générale) du module de code de ton userform :

Code :

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

1
2
3
4
5
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

2) immédiatement après chaque instruction ScreenUpdating = False :

Code :

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

1
2
3
 Dim sysmen As Long
    sysmen = GetSystemMenu(FindWindowA(vbNullString, Me.Caption), 0)
    DeleteMenu sysmen, &HF010&, &H0&

2) immédiatement après chaque instruction ScreenUpdating = True:

Code :

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

1
2
 GetSystemMenu FindWindowA(vbNullString, Me.Caption), True
    DrawMenuBar FindWindowA(vbNullString, Me.Caption)

Il sera d'ailleurs plus commode de mettre dans deux procédures (par exemple autoriser et inhiber) les deux codes et de lancer inhiber après un screenupdating à false et autoriser en le remettant à true

[Touffe54]

J'ai pris note du code, mais pour l'instant çà bug.

Merci quand même.

[babaothe]

J'ai pris note du code, mais pour l'instant çà bug.

Merci quand même.

montre donc ton code

[patricktoulon]

bonjour a tous les deux

je viens d'essayer le code de babahote un peu modifier pour aller dans un module standard

les deux actions s'appellent "enleve et remet"
et sa ne marche pas du tout ca ne fais absolument rien
y aurait t-il pas une erreur au niveau des variables "&HF010&, &H0"



les deux actions sont appelées par deux boutons

code dans le userform

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub CommandButton1_Click()
enleve Me
End Sub
 
Private Sub CommandButton2_Click()
remet Me
End Sub

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
 
 
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public sysmen As Long
 
 
Sub enleve(maform As UserForm)
   sysmen = GetSystemMenu(FindWindowA(vbNullString, maform.Caption), 0)
    DeleteMenu sysmen, &HF010&, &H0&
  End Sub
 
Sub remet(maform As UserForm)
 GetSystemMenu FindWindowA(vbNullString, maform.Caption), False
    DrawMenuBar FindWindowA(vbNullString, maform.Caption)
 End Sub