Interdire le déplacement d'un UserForm

[olic95]

Salut le forum,

Je voudrais savoir s'il est possible de figer un UserForm. A l'ouverture de mon fichier clients, un UserForm apparaît pour me permettre de choisir "Nouveau", "Suppression" ou "Modification" d'un client.

J'aimerais qu'il ne soit pas déplaçable lorsqu'on clique sur la barre de titre et qu'on déplace la souris.

Merci.

Olivier.

 

[Robert]

Re : Interdire le déplacement d'un UserForm

Bonjour Olic, bonjour le forum,

Je suis étonné que tu n'aies pas eu de réponses. Je te propose une solution un peu tirée par les cheveux...

Applique à la propriété StarUpPosition de l'UserForm la valeur 0 - Manual.
Définit le placement en haut et à gauche avec les propriétés Top et Left (par exemple Top = 100 et Left = 100).
Utilise la procédure Layout de l'Userform comme ci dessous :

Private Sub UserForm_Layout()
Me.Top = 100
Me.Left = 100
End Sub

Maintenant ton UserForm est figé car toute tentative de déplacement le remettra à 100 (gauche) et 100 (hauteur).

 

[olic95]

Re : Interdire le déplacement d'un UserForm

Salut Robert, le forum,

OK, j'applique ça et je teste.

Ca se met dans le code du UserForm appelé, appelant, Thisworkbook à l'ouverture ?

Merci.

Olivier.

 

[Robert]

Re : Interdire le déplacement d'un UserForm

Bonjour Olic, bonjour le forum,

Les propriétés StartUpPosition, Top et Left tu peux les écrire directement dans la fenêtre des propriétés de l'USerForm ou dans la Procédure d'Initialisation. Quant à la procédure Layout c'est une procédure du composant UserForm.