Discussion :

[moilou2]

Bonjour à tous!

Savez vous comment adapter la taille des éléments contenus dans une UserForm, lorsque celle ci est mise en plein écran?!!!

Merci a tous

[Jean-Pierre49]

Bonjours

De memoire il faut utiliser les API windows pour agir sur la proprieté zomm des contrôles.

seul les experts pourront de conseiller.

[SilkyRoad]

bonsoir


Tu peux adapter ce type de procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub UserForm_Initialize()
 
    If Application.Width / Me.Width < Application.Height / Me.Height Then
        Me.Zoom = 100 * (Application.Width / Me.Width)
        Else
        Me.Zoom = 100 * (Application.Height / Me.Height)
    End If
 
    With Me
          .startUpPosition = 3
          .Width = Application.Width
          .Height = Application.Height
          .Left = 0
          .Top = 0
    End With
End Sub

bonne soire
michel