Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Contrôler le zoom avec des flèches

Contrôler le zoom avec des flèches

4 réponses
Avatar
Pierre F.
Bonjour =E0 toutes et tous;

Sur une feuile, j'ai une macro qui me permet de r=E9duire le zoom de la=20
feuille =E0 85% et une autre pour le remettre =E0 100%

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

Je souhaiterais mettre =E0 la place des 2 boutons une double fl=E8che qui=
me=20
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.
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
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." a écrit dans le message de
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.
Avatar
Pierre F.
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.
Avatar
Philippe.R
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." a écrit dans le message de
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.
Avatar
Pierre F.
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.