XL 2010 Brider le Zoom

[Magic_Doctor]

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]

Bonjour Magic_Doctor, le forum,

Tu peux utiliser le fichier joint mais c'est plus un gadget qu'autre chose :

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 :

Private Sub Workbook_Open()
If Feuil1.OLEObjects(1).Object.Caption = "Arrêt" Then Application.OnTime 1, "Feuil1.Marche"
End Sub

A+

 

[Dudu2]

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.

 

[Dudu2]

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.

A adapter selon le contexte...

 

[Magic_Doctor]

Bonjour job, Dudu,

Merci pour vos réponses.
Ç marche, mais comme le signale pertinemment job, c'est plus un gadget qu'autre chose.
Pour simplifier, j'imposerai un zoom et voilà.