Adapter les éléments d'une UserForm

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 :P

Bonjours

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

seul les experts pourront de conseiller.

bonsoir


Tu peux adapter ce type de procédure

Code:

---

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