Code pour adapter la taille de l'écran
Bonjour le forum,
Novice dans le VBA et les codes, j'ai besoin de votre aide pour résoudre mes problématiques :
Je travail sur mes classeurs Excel, sur un ordinateur portable 13 pouces en déplacements, et sur un écran 24 pouces lorsque je suis chez moi. Le problème, c'est qu'en passant d'un écran à l'autre, le format de mes classeurs Excel ne sont plus du tout bon, et il est long de faire la modification classeur après classeur.
Pour l'instant, j'utilise le code suivant, qui me permet de modifier le "Zoom" de l'ensemble des feuilles d'un classeur :
Sub WorkBook_Open()
Dim sh As Worksheet, setZoom As Long
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
setZoom = 130
sh.Activate
ActiveWindow.Zoom = setZoom
Next sh
Application.ScreenUpdating = True
Sheets(1).Select
End Sub
1) Mais existe t-il une solution pour que le changement se produise sur l'ensemble des classeurs ouverts à ce moment la, et pas uniquement dans un seul classeur ?
De plus, il est parfois long de trouver le bon "pourcentage de zoom" adapté à l'écran :
2) Existe t-il un code qui permet de faire le changement automatiquement en détectant le format de l'écran ?
Je vous remercie d'avance pour votre attention et votre aide.
Bonjour,
Ceci pourrait aider > Zoom automatique en fonction de la largeur de la fenêtre (excel-pratique.com)
ric
Bonjour RIC,
Merci pour la réorientation vers l'autre sujet ! En revanche, je n'ai pas réussi à trouver ma solution ...
Pensez-vous que avec un code, il serait possible de modifier le ZOOM de tous les classeurs actifs en même temps ?
Anthony
Bonjour,
Possiblement > mais > c'est à une autre niveau que le mien ...
ric