OVH Cloud OVH Cloud

Zoom automatique

1 réponse
Avatar
Laurent
Bonjour,

Dans un classeur, je souhaite que la feuille complète s'affiche sur l'écran
de l'utilisateur quelque soit la résolution de son écran.

J'ai mis la macro suivante dans chaque objet feuille :

Private Sub Worksheet_Activate()
[A1:K13].Select
ActiveWindow.Zoom = True
[A1].Select
End Sub


Le problème : ça marchait bien avec NT et excel 2000, avec XP et excel 2002,
ça marche pas... Ça doit être tout bête mais je trouve pas. Merci de votre
aide

--
Laurent

1 réponse

Avatar
Daniel
Bonjjour.
Je n'ai pas XL2002; si tu fais la manip avec l'enregistreur, qu'est-ce que
tu obtiens ?
Cordialement.
Daniel
"Laurent" a écrit dans le message de news:
448eb8e1$
Bonjour,

Dans un classeur, je souhaite que la feuille complète s'affiche sur
l'écran
de l'utilisateur quelque soit la résolution de son écran.

J'ai mis la macro suivante dans chaque objet feuille :

Private Sub Worksheet_Activate()
[A1:K13].Select
ActiveWindow.Zoom = True
[A1].Select
End Sub


Le problème : ça marchait bien avec NT et excel 2000, avec XP et excel
2002,
ça marche pas... Ça doit être tout bête mais je trouve pas. Merci de votre
aide

--
Laurent