macro zoom dans userform

[alex]

Bonjour a tous, jai fait une macro zoom dans un user form avec 2 boutons, + et - mais le probleme cest que quand je clik sur ces boutons, le zoom se réalise aussi sur luserform, cad que sa magrandi les boutons + et -......donc si je clik trop sur le +, je ne voi plus le moins ^^

es ce possible dappliquer le zoom seulement sur la feuille et non sur luser form??
Javai du faire un zomm comme sa :
Zoom = ActiveWindow.Zoom
ActiveWindow.Zoom = Zoom - 10

merci davance

 

[ziopizza]

Bonjour alex et le Forum,

Je ne rencontre pas ce probléme,la propriété
de mon UserForm : modal = false.
J'ai excel 2003.
Salut .
Yves

 

[sunnyland]

Cher Alex

Plutot que de mettre des boutons + & - mais une 'scrollbar' avec valeur minimale 10 & maximale 400.


Private Sub ScrollBar1_Change()
ActiveWindow.Zoom = ScrollBar1.Value
End Sub

Peut -etre le probleme dans ton code vient du fait que lorsque tu mets:
zoom=activewindow.zoom

en fait tu dit a ton code
userform.zoom=activewindow.zoom

car l'object userform a une proprietee zoom.

donc si tu enleve la ligne:
zoom=activewindow.zoom

ton code devrait fonctionner.

Francoise

 

[sunnyland]

Message édité par: sunnyland, à: 18/02/2006 12:41

 

[ALEX]

désolé pour mon double post !

si jenleve zoom=activewindow.zoom je ne peu faire qun seul zoom
alors que je voulais faire que plus on appui sur le bouton + et plus le zoom est gros....que la, sa ne marche quune fois! par contre, cest vrai, ça ne grossi pas luserform !

merci

 

[sunnyland]

Dans ce cas la si tu mets:
dans le code du bouton - click

ActiveWindow.Zoom = activewindow.Zoom - 10

et dans le code du bouton +click

ActiveWindow.Zoom = activewindow.Zoom + 10

Je pense qu'il y a des limites de 10 a 400 dans le zoom possible.

Francoise