Centré le contenu d'un userform

ploz · 24 Janvier 2016

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

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 · 24 Janvier 2016

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

Code:

        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

Code:

        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 · 24 Janvier 2016

Re : Centré le contenu d'un userform

Merci beaucoup =)

c'est niquel

mapomme · 24 Janvier 2016

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 · 24 Janvier 2016

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

Centré le contenu d'un userform

ploz

XLDnaute Occasionnel

Paf

XLDnaute Barbatruc

ploz

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

ploz

XLDnaute Occasionnel

Discussions similaires