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.
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
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.
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." <pfornerodNO@SPAMhotmail.ch> a écrit dans le message de
news:9bdbe$4a637ee4$55da2ee3$31143@news.hispeed.ch...
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.
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.
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.
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 %
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
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.
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." <pfornerodNO@SPAMhotmail.ch> a écrit dans le message de
news:34a5c$4a638a35$55da2ee3$11754@news.hispeed.ch...
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 %
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.
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.
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.
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.