veriti site des amis d'excel

Caler automatiquement le zoom à l'écran en fonction de la résolution et de la zone d'impression définie sur la feuille
Cette procédure permet de s'adapter exactement à toutes les configurations d'écrans ou de feuilles ...

Partie à placer dans un module de feuille...

Option Explicit

Private Sub Worksheet_Activate()
'Ti
'http://www.excel.veriti.net
'Zoom automatique sur une zone d'impression
    Dim Area$­, Cel As Range
    On Error Resume Next
    With ActiveSheet
        Set Cel = Selection
        If Cel Is Nothing Then Set Cel = .Range("A1")
        Area = .PageSetup.PrintArea
        If Area <> "" Then
            .Range(Area).Select
            ActiveWindow.Zoom = True
        End If
    End With
    Cel.Select
End Sub
 
Ici le principe sera actif lorsque le feuille en question sera activée ... il est facile d'appliquer un bouton ou autre à cet exemple