Changer dimension Userform

Bonjour à tous.

Sans vouloir compliqué, j'aimerai savoir si on a la possibilité en VBA de changer la dimension d'un UserForm au lancement de ce dernier.

Ça je sais le faire mais ce que je n'arrive pas c'est de redimensionner le contenu de l'USF au prorata, c'est à dire : Diminuer :

TextBox, ComboBox, Bouton, Bouton image, Label etc...

Si quelqu'un aurait la solution je suis preneur.

Amicalement

Noel

Bonjour Noel,

Essaye déjà avec le Zoom des UserForms :

Private Sub UserForm_Initialize()
With Me
   .Zoom = .Zoom / 2
   .Width = .Width / 2
   .Height = .Height / 2 + 5 '5 = marge arbitraire
End With
End Sub

Bonjour pijaku,

Je te remercie.

Laisse moi le temps d'essayer tout ça.

Merci

Amicalement

Noel

Bonjour à tous,

Bonjour Pijaku,

C'est bon

Merci encore

@+

Amicalement

Noel