Centré le contenu d'un userform

bonjour a tous,

j'ai fait pour que mon userform s'affiche en plein écran a l'ouverture de mon fichier cependant je voudrais que l'ensemble du contenu ce centre. car la actuellement il se met en haut gauche

voici mon code

'affichage plein ecran et desactive le déplacement
    Private Sub UserForm_Layout()
        Application.ScreenUpdating = False
        Me.Width = Application.Width
        Me.Height = Application.Height
        Me.Top = 0
        Me.Left = 0
        Application.ScreenUpdating = True
    End Sub

merci de votre aide

résolu

pour ceux qui veulent la solution

'affichage plein ecran et centre le contenu
    Private Sub UserForm_Layout()
    decalL = (Application.Width - Me.Width) / 2
        decalH = (Application.Height - Me.Height) / 2
        Me.Width = Application.Width
        Me.Height = Application.Height
        Me.Top = 0
        Me.Left = 0
        For Each ctrl In Me.Controls
          ctrl.Left = ctrl.Left + decalL
          ctrl.Top = ctrl.Top + decalH
        Next
          End Sub
Rechercher des sujets similaires à "centre contenu userform"