Est il possible d'effectuer un zoom global sur toutes les feuilles d'un classeur Excel ?

Question

Bonjour,

Je travaille sur un classeur Excel qui comporte de nombreuses feuilles, avec deux ordinateurs de format d'écran très différents. Lorsque je passe de l'un à l'autre, je suis obligé de modifier le facteur de zoom (de 100 à 130, puis inversement) pour chaque feuille.

Existe-t-il un moyen de modifier globalement le facteur de zoom pour l'ensemble du classeur ?

Merci d'avance,

Patrice G.

Answer 1

Bonjour,

Avec une macro VBA

Answer 2

Bonjour,

Code à placer dans le Personal.xlsb et à appeler via un bouton dans la barre d'accès rapide ou via un raccourci clavier

Sub MesZooms()

Dim reponse             As Long 

Dim intZoom             As Integer 

Dim objFeuille          As Worksheet 

Dim strFeuilleActive    As String 

Select Case ActiveWindow.Zoom 

Case 100 

    intZoom = 130 

Case 130 

    intZoom = 100 

Case Else 

    reponse = MsgBox("Oui : 130%" & vbCrLf & "Non : 100%", vbQuestion + vbYesNo, "Passage à 130%") 

    intZoom = IIf(reponse = vbYes, 130, 100) 

End Select 

strFeuilleActive = ActiveSheet.Name 

Application.ScreenUpdating = False 

For Each objFeuille In ActiveWorkbook.Worksheets 

    objFeuille.Activate 

    ActiveWindow.Zoom = intZoom 

Next 

Worksheets(strFeuilleActive).Activate 

Application.ScreenUpdating = True 

End Sub

Answer 3

Merci, je crois avoir compris !

Reste à savoir si je suis capable de créer une telle macro, mais je vais essayer !

Patrice G.

Answer 4

Merci Daniel pour cette réponse, mais je suis bien incapable vu mon niveau de mettre en place une telle macro !

Si tu as une seconde pour m'expliquer la marche à suivre, j'en serais très heureux.

Merci d'avance.

PG

Answer 5

Bonjour,

Si tu es intéressé par la macro, dis-le.

Daniel