Discussion :

[panda78]

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

Code :

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

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.

[issoram]

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 :

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

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.

[fring]

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

[panda78]

ok Merci!

[pijaku]

Bonjour,

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

[panda78]

Super Merci!

[fring]

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 :

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

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