Centré le contenu d'un userform

[ploz]

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

 

[Paf]

Re : Centré le contenu d'un userform

Bonjour,

il faut jouer sur la position de chaque control de l'USF; deux essais à adapter:

1) les positions sont proportionnelles à l'écran

        coef = Application.Width / Me.Width
        Me.Width = Application.Width
        Me.Height = Application.Height
        Me.Top = 0
        Me.Left = 0
        For Each ctrl In Me.Controls
          ctrl.Left = ctrl.Left * coef
          ctrl.Top = ctrl.Top * coef
        Next

2) les positions sont conservées, mais centrées

        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

A+

 

[ploz]

Re : Centré le contenu d'un userform

Merci beaucoup =)

c'est niquel

 

[mapomme]

Re : Centrer & Zoomer le contenu d'un userform

Bonsoir ploz, Paf 🙂,

Un essai (en Excel 10) en utilisant la fonction Zoom de l'UserForm1 qui prend aussi en charge la taille des caractères.

Un double-clique sur le fond du UserForm alterne entre l'affichage initial et l'affichage 'Grand Format'.

Le code est dans le module de UserForm1 ainsi qu'une sauvegarde de variables initiales dans Module1.

 

[ploz]

Re : Centré le contenu d'un userform

au cas ou https://www.excel-downloads.com/threads/ajout-dun-case-a-cocher.20004776/ si vs pouvez m'aider =)