Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Resolution et zoom Ecran

KTM

XLDnaute Impliqué
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 Barbatruc
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…