Si vous travaillez avec des classeurs sur lesquels vos collègues ont d’abord travaillé, vous risquez d’être frustré par le facteur de zoom appliqué à ces classeurs par ces autres. Par exemple, si votre collègue (Wanda) a un énorme moniteur, il ne serait pas rare qu’elle réduise le facteur de zoom sur Excel à 75% ou même 60%. Le but, bien sûr, est qu’elle ne soit pas maîtrisée par des choses qui semblent très grandes avec le facteur de zoom complet.

Le problème est que le facteur de zoom est enregistré avec le classeur. Ainsi, lorsque Wanda enregistre le classeur et vous le remet, lorsque vous l’ouvrez, le classeur est toujours affiché quel que soit le facteur de zoom utilisé en dernier par Wanda.

Si vous n’avez pas le même moniteur de taille que Wanda, le classeur peut être presque illisible sur votre système.

Il n’y a que deux solutions possibles à ce problème. Tout d’abord, vous pouvez simplement ajuster le facteur de zoom une fois que vous ouvrez le classeur. Il existe une multitude de façons de le faire, mais la plus simple consiste à utiliser le paramètre Zoom dans la barre d’outils Formatage ou à utiliser la molette de défilement de votre souris. (Sur certains systèmes, vous devrez peut-être maintenir la touche Ctrl enfoncée pour que la molette de défilement règle le facteur de zoom.)

La deuxième solution de contournement consiste à créer une macro qui est enregistrée avec le classeur. La macro peut s’exécuter chaque fois que le classeur est ouvert et définir ainsi le facteur de zoom. (Cette macro doit être ajoutée à la fenêtre de code Ce classeur dans l’éditeur VBA.)

Private Sub Workbook_Open()

ActiveWindow.Zoom = 100 End Sub

Le seul problème avec une macro comme celle-ci, bien sûr, est que chaque fois que Wanda (votre collègue) ouvre le classeur sur son système, le facteur de zoom est également défini et elle sera tout aussi frustrée avec vous que vous l’étiez avec elle.

Une solution consiste peut-être à créer une macro plus complexe, qui vérifie la résolution actuelle de l’écran, puis définit le facteur de zoom en conséquence.

Par exemple, la macro suivante pourrait être utilisée pour effectuer les ajustements en fonction de la résolution:

Declare Function GetSystemMetrics32 Lib "user32" _     Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Public Sub ScreenRes()

Dim lResWidth As Long     Dim lResHeight As Long     Dim sRes As String

lResWidth = GetSystemMetrics32(0)

lResHeight = GetSystemMetrics32(1)

sRes = lResWidth & "x" & lResHeight     Select Case sRes         Case Is = "800x600"

ActiveWindow.Zoom = 75         Case Is = "1024x768"

ActiveWindow.Zoom = 125         Case Else             ActiveWindow.Zoom = 100     End Select End Sub

Cette routine vérifie la résolution de l’écran et ajuste la fenêtre en conséquence. D’autres résolutions et zooms peuvent être ajoutés facilement. Pour que la routine s’exécute automatiquement, utilisez simplement un gestionnaire d’événements Workbook_Open dans la fenêtre de code Ce classeur pour déclencher la macro:

Private Sub Workbook_Open()

ScreenRes End Sub

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2668) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Always_Open_atZoom [Toujours ouvert à 100% de zoom].