modifier echelle userform

Bonjour,
je souhaiterai créer un bouton qui diminue l'echelle de mon userform, j'ai fait comme ceci:

Code:

---

1 2 3 4

Private Sub CommandButton4_Click() Me.Height = Me.Height / 2 Me.Width = Me.Width / 2 End Sub

---

mais cela coupe tout mes frame à l'intérieur et je voudrais changer l'échelle comme un tout. Merci.

Bonjour,

A mon avis, tu es obligé de faire la même chose pour tous les composants de ton UF. Ça donnerait quelque chose du style:

Code:

---

1 2 3 4 5

Dim Ctrl as Control For each Ctrl in Me.Controls Ctrl.Height=Ctrl.Height/2 Ctrl.Width=Ctrl.Width/2 Next Ctrl

---

à adapter en fonction des contrôles présents dans ton UF.
Mais il y' a peut être une option (que je ne connais pas) qui le fait automatiquement.

Bonjour,

Cela n'est pas réalisable, il n'y a pas de possibilité de réduire l'échelle d'un UserForm. Seule possibilité est de jouer sur ses dimensions mais cela implique de modifier chaque contrôle (taille et position) se trouvant sur ce USF... = construction d'une usine à gaz intergalactique pour rien :aie:

ok Merci! :ccool:

Bonjour,

Tu peux aller jeter un oeil à la contribution de PatrickToulon :
source-userform-redimensionnable/

Super Merci!

Sorry j'ai dit une connerie (j'ai laissé quelques neurones sur la plage...), il y a effectivement la propriété Zoom. Il te suffit de faire :

Code:

---

1 2 3 4 5

Private Sub CommandButton4_Click() Me.Height = Me.Height / 2 Me.Width = Me.Width / 2 Me.Zoom = Me.Zoom / 2 End Sub

---