XL 2010 Brider le Zoom

Magic_Doctor

XLDnaute Barbatruc
Bonjour,

Existerait-il un moyen pour faire en sorte que le zoom (contrôle + mollette souris) ne puisse pas aller en deçà et au-delà d'une fourchette déterminée ?
 

job75

XLDnaute Barbatruc
Bonjour Magic_Doctor, le forum,

Tu peux utiliser le fichier joint mais c'est plus un gadget qu'autre chose :
VB:
Private Sub CommandButton1_Click()
Marche
End Sub

Sub Marche()
Static test As Boolean
Dim t#
test = CommandButton1.Caption = "Marche"
CommandButton1.Caption = IIf(test, "Arrêt", "Marche")
CommandButton1.BackColor = IIf(test, vbGreen, vbRed)
CommandButton1.ForeColor = IIf(test, vbBlack, vbWhite)
While test
    t = Timer + 0.1: If t > 86400 Then t = 0
    While Timer < t: DoEvents: Wend
    If ActiveWindow.Zoom < 100 * [D3] Then ActiveWindow.Zoom = 100 * [D3]
    If ActiveWindow.Zoom > 100 * [D4] Then ActiveWindow.Zoom = 100 * [D4]
Wend
End Sub
Et dans ThisWorkbook pour remettre à zéro le CommandButton :
VB:
Private Sub Workbook_Open()
If Feuil1.OLEObjects(1).Object.Caption = "Arrêt" Then Application.OnTime 1, "Feuil1.Marche"
End Sub
A+
 

Pièces jointes

  • Zoom(1).xlsm
    22.2 KB · Affichages: 12

Dudu2

XLDnaute Barbatruc
Bonjour Job75 & Magic Doctor,
Il y a sûrement un moyen d'intercepter les <Ctrl> + Molette souris mais c'est pas un truc de base. Je n'ai rien trouvé sur Internet.
De toutes façons ce ne serait pas suffisant car on peut définir le Zoom par l'interface aussi.

Il y a bien un Zoom Event mais c'est sur les UserForms.

La seule solution que j'imagine est de contrôler et éventuellement rétablir de Zoom soit sur des évènements de feuille comme Worksheet_SelectionChange() soit dans un routine qui boucle toutes les secondes.
Selon ton choix je te ferai le code.
D.
 
Dernière édition:

Dudu2

XLDnaute Barbatruc
Je me suis amusé à faire ce classeur. Comme le Zoom s'applique à l'ActiveWindow, j'ai indiqué des paramètres pour en contrôler le scope.

2020-07-08_140307.jpg


A adapter selon le contexte...
 

Pièces jointes

  • ControlZoom.xlsm
    23.8 KB · Affichages: 7
Dernière édition:

Discussions similaires

  • Question
XL 2010 Zoom
Réponses
5
Affichages
241

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib