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