Contrôler le zoom avec des flèches

Le
Pierre F.
Bonjour à toutes et tous;

Sur une feuile, j'ai une macro qui me permet de réduire le zoom de la
feuille à 85% et une autre pour le remettre à 100%

Sub zoom()
' zoom Macro
Application.ScreenUpdating = False
ActiveWindow.zoom = 85
Range("B4:C4").Select
End Sub
-
Sub zoom100()
' zoom100 Macro
Application.ScreenUpdating = False
ActiveWindow.zoom = 100
Range("B4:C4").Select
End Sub

Je souhaiterais mettre à la place des 2 boutons une double flèche qui=
me
permettrait de faire varier le zoom avec des clics successifs.

voir http://cjoint.com/?htwn1mrxVM

Je ne vois pas comment faire

Merci pour votre aide.

Cordialement,
Pierre F.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #19788901
Bonsoir,
Depuis la barre d'outils contrôles, tu dessines un spinbouton (celui à 2
flèches que tu évoques), dans les propriétés tu affectes la valeur 100 et
dans le code du bouton, tu colles :

Private Sub SpinButton1_Change()
ActiveWindow.Zoom = SpinButton1.Value
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Pierre F." news:9bdbe$4a637ee4$55da2ee3$
Bonjour à toutes et tous;

Sur une feuile, j'ai une macro qui me permet de réduire le zoom de la
feuille à 85% et une autre pour le remettre à 100%

Sub zoom()
' zoom Macro
Application.ScreenUpdating = False
ActiveWindow.zoom = 85
Range("B4:C4").Select
End Sub
----------------
Sub zoom100()
' zoom100 Macro
Application.ScreenUpdating = False
ActiveWindow.zoom = 100
Range("B4:C4").Select
End Sub

Je souhaiterais mettre à la place des 2 boutons une double flèche qui me
permettrait de faire varier le zoom avec des clics successifs.

voir http://cjoint.com/?htwn1mrxVM

Je ne vois pas comment faire ...

Merci pour votre aide.

Cordialement,
Pierre F.
Pierre F.
Le #19789011
Philippe.R a écrit :
Bonsoir,
Depuis la barre d'outils contrôles, tu dessines un spinbouton (celui à 2
flèches que tu évoques), dans les propriétés tu affectes la val eur 100
et dans le code du bouton, tu colles :

Private Sub SpinButton1_Change()
ActiveWindow.Zoom = SpinButton1.Value
End Sub



Merci!!!
Je crois avoir réussi...

mais petits problèmes :-)

Sur ma feuille, les flèches sont à l'intérieur d'un cadre nommé
userform1, ce qui est peu esthétique; peut-on faire disparaître ce ca dre

Comment paramétrer pour qu'un clic sur une flèche augmente ou descend e
le zoom de 3 ou 5 %

Merci.
Pierre F.
Philippe.R
Le #19790111
Bonjour,
A priori tu dois pouvoir coller directement le bouton dans la feuille
(XL2002)
Pour changer le pas, tu retournes dans les propriétés du bouton et tu règles
"smallchange" comme tu le souhaites : 3 ou 5
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Pierre F." news:34a5c$4a638a35$55da2ee3$
Philippe.R a écrit :
Bonsoir,
Depuis la barre d'outils contrôles, tu dessines un spinbouton (celui à 2
flèches que tu évoques), dans les propriétés tu affectes la valeur 100 et
dans le code du bouton, tu colles :

Private Sub SpinButton1_Change()
ActiveWindow.Zoom = SpinButton1.Value
End Sub



Merci!!!
Je crois avoir réussi...

mais petits problèmes :-)

Sur ma feuille, les flèches sont à l'intérieur d'un cadre nommé
userform1, ce qui est peu esthétique; peut-on faire disparaître ce cadre

Comment paramétrer pour qu'un clic sur une flèche augmente ou descende
le zoom de 3 ou 5 %

Merci.
Pierre F.
Pierre F.
Le #19790741
Philippe.R a écrit :
A priori tu dois pouvoir coller directement le bouton dans la feuille
(XL2002)
Pour changer le pas, tu retournes dans les propriétés du bouton et tu
règles "smallchange" comme tu le souhaites : 3 ou 5



Merci!!

Effectivement, je m'y prenais mal (mode création...)
Tout roule impeccable.

Cordialement,
Pierre F.
Publicité
Poster une réponse
Anonyme