Pourcentage d'affichage

[Panpan]

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

[dubois]

Bonsoir et bienvenue,

Tu peux mettre ce code dans ton fichier de macros "PERSONNAL.xlsb"
et un bouton associé dans ta barre d'outil.

Code: Tout sélectionner

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

Amicalement
Claude

[Panpan]

Bonsoir et bienvenue,

Tu peux mettre ce code dans ton fichier de macros "PERSONNAL.xlsb"
et un bouton associé dans ta barre d'outil.

Code: Tout sélectionner

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?)

[V_Elbie]

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,

[dubois]

Bonjour à tous,

et pour + de souplesse, choisir le Zoom

Code: Tout sélectionner

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.