Pourcentage d'affichage

Bonsoir

Je reçois réguliérement des fichiers "Excel" concernant mon job.

Ils arrivent avec des pourcentages d'affichages différents....De ce fait,je dois,chez moi à chaque fois choisir 125% pour un affichage plein écran. Est il possible de choisir un réglage permanent sur 125%?

Merci d'avance.

Philippe

Bonsoir et bienvenue,

Tu peux mettre ce code dans ton fichier de macros "PERSONNAL.xlsb"

et un bouton associé dans ta barre d'outil.

Sub Zoom125()
Dim Feuille
    For Each Feuille In ActiveWorkbook.Sheets
        With Feuille
            .Activate
            ActiveWindow.Zoom = 125
        End With
    Next Feuille
End Sub

Amicalement

Claude

dubois a écrit :

Bonsoir et bienvenue,

Tu peux mettre ce code dans ton fichier de macros "PERSONNAL.xlsb"

et un bouton associé dans ta barre d'outil.

Sub Zoom125()
Dim Feuille
    For Each Feuille In ActiveWorkbook.Sheets
        With Feuille
            .Activate
            ActiveWindow.Zoom = 125
        End With
    Next Feuille
End Sub

Amicalement

Claude

Merci pour ta réponse,mais je n'y ai rien compris!

Si tu pouvais préciser un peu(fichier Macros?)

Bonjour,

Le fichier ci-dessous avec le code de Claude, auquel j'ai rajouté une instruction pour rester sur la feuille initiale.

ALT + F11 pour visualiser le code. Il faudrait le recopier dans ton classeur de macro personnelles perso.xls pour y avoir accès à partir de n'importe quel fichier.

J'ai associé la macro à un bouton, mais tu peux faire plus pratique en mettant un bouton dans une barre d'outils pour y accéder.

Fichier

Cordialement,

Bonjour à tous,

et pour + de souplesse, choisir le Zoom

Sub Zoom()
Dim Feuille, Sh, Rep As String
        Sh = ActiveSheet.Name
        Rep = InputBox("Zoom à combien ?", , 100)
        If Rep = "" Or IsNumeric(Rep) = False Then Exit Sub
        Application.ScreenUpdating = False
    For Each Feuille In ActiveWorkbook.Sheets
        With Feuille
            .Activate
            ActiveWindow.Zoom = Rep
        End With
    Next Feuille
        Sheets(Sh).Activate
End Sub

Je viens de mettre ce code dans ma barre d'outil

Bonne journée

Claude.