Resolution et zoom Ecran

KTM

XLDnaute Occasionnel
Salut tout le forum et tous ses membres éclairés.
Je suis confronté à une situation que je n'arrive pas à gérer.
J'ai conçu un fichier depuis mon ordinateur portable qui a la résolution 1366*768 et avec un zoom de 70% mes feuilles se présentent bien. Mais mes collègues qui utilisent ledit fichier sur des Bureautiques de plus grande résolution 1920*1080 et autres sont obligés de zoomer 100 ou plus pour plus de clarté.
Ma préoccupation : Comment faire pour que à l'ouverture de mon fichier en fonction de la résolution de l'écran le zoom soit conséquent ? Sans modifier le Zoom initial bien sur
 

sousou

XLDnaute Accro
Bonsoir
essaie ce truc
col est la dernière cellule que tu veux voir apparaître sur ton écran
Sub zoom()
col = 5
lapp = Application.Width
lfich = Cells(1, col).Left + Cells(1, col).Width
Z = lapp / lfich
ActiveWindow.zoom = Z * 100
End Sub
 

Discussions similaires


Haut Bas