XL 2016 Bloquer la position d'un USF

[dodineau]

Bonjour,
Connaissez vous une commande VBA pour bloquer le déplacement d'un userform ?
Merci.

 

[Temjeh]

Bonjour dodineau, mapomme

Une variante qui aussi le centre (sans déclaration de variables!)

Private Sub UserForm_Initialize()

    LargeurFenêtre = Application.Width
    HauteurFenêtre = Application.Height
    PositionGauche = Application.Left
    PoisitionHaut = Application.Top

    Me.Left = (PositionGauche + LargeurFenêtre) - ((LargeurFenêtre + Me.Width) / 2)
    Me.Top = (PoisitionHaut + (HauteurFenêtre / 2)) - Me.Height / 2

End Sub

Private Sub UserForm_Layout()

    LargeurFenêtre = Application.Width
    HauteurFenêtre = Application.Height
    PositionGauche = Application.Left
    PoisitionHaut = Application.Top

    Me.Left = (PositionGauche + LargeurFenêtre) - ((LargeurFenêtre + Me.Width) / 2)
    Me.Top = (PoisitionHaut + (HauteurFenêtre / 2)) - Me.Height / 2

End Sub

 

[Usine à gaz]

Bonjour,

Ce fichier concocté par l'un des ténors du site pourrait peut-être convenir ?
Amicalement,
Lionel,

 

[mapomme]

Bonsoir @dodineau, @Temjeh, @arthour973,

Une nouvelle version testée cette fois ci :

Option Explicit
Dim TopInit, LeftInit

Private Sub UserForm_Initialize()
  TopInit = "x"
End Sub

Private Sub UserForm_Layout()
  If TopInit = "x" Then TopInit = Me.Top: LeftInit = Me.Left
  Me.Move LeftInit, TopInit
End Sub

 

[dodineau]

Bonjour et merci pour votre aide.
Ca fonctionne comme je le voulais.
A+