deplacement userform

[thierry]

Je voudrais empecher le déplacement de plusieurs userform avec la souris. Existe t-il des codes et où les placer.
merci à tous

 

[michel]

Re: empecher deplacement userform

bonjour Thierry

j'espere que ce lien répondr& à ta demande

Lien supprimé


bonne journée
MichelXld

 

[Ti]

encore plus simple qu'en passant par des API, en ajoutant ce code à ton userform :

Option Explicit
Dim Top!, Left!

Private Sub UserForm_Activate()
'code à ne pas placer dans Initialize, mais dans Activate du Userform
Top = Me.Top
Left = Me.Left
End Sub

Private Sub UserForm_Layout()
If Top <> 0 Then
Me.Top = Top
Me.Left = Left
End If
End Sub

 

[michel]

bonjour Ti

merci pour cette solution


bonne journée
MichelXld

 

[thierry]

MERCI à tout les deux.
C'est exactement ce que je chercher !!!