KTM
XLDnaute Impliqué
Salut chers membres du forum
J'utilise la procédure suivante pour afficher mon USF plein écran et son contenu centré. Mais le contenu de mon contrôle "multipage1" ne se met pas au centre .Comment pourrais-je adapter "Layout " à mon multipage ? Merci
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
J'utilise la procédure suivante pour afficher mon USF plein écran et son contenu centré. Mais le contenu de mon contrôle "multipage1" ne se met pas au centre .Comment pourrais-je adapter "Layout " à mon multipage ? Merci
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