Définition de toutes les feuilles Excel à un niveau de zoom défini

Question

J'ai plus de vingt feuilles dans un classeur Excel (fichier). Existe-t-il un extrait de code ou une commande que je pourrais appliquer/utiliser pour que toutes les feuilles puissent être réinitialisées à un niveau de zoom de 85%, par exemple?

Answer 1

Sub SetZoom()
    Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Select
        ActiveWindow.Zoom = 85 //change as per your requirements
    Next ws
End Sub

BTW, si vous sélectionnez simplement toutes les feuilles de calcul dans votre classeur à l'aide des onglets, vous pouvez ensuite régler le zoom à 85% et il s'appliquera à toutes les feuilles de calcul