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
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