Resolution et zoom Ecran

[KTM]

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

 

[job75]

https://www.excel-downloads.com/thr...-a-louverture-dossier.20028937/#post-20216455

 

[sousou]

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

 

[KTM]

Merci à toi