Zoomer sur la cellule active pour en voir le contenu

Page créée le: 23/11/2009

      Il arrive parfois que pour des raisons d'affichage, vous soyez obligé de régler le zoom de votre
feuille à 75%, voire 50% et dans ce cas si pour voir le contenu d'une cellule cela devient diffilement lisible.
Vous pouvez bien entendu remettre le zoom à 100% mais cela peut devenir fastidieux car il vous
faudra à chaque modifier le zoom de votre feuille.

Voici deux méthodes (trouvées sur le site Microsoft Excel Tips - Excel.Tips.Net)
       1-Zoom sur la cellule active avec une procédure événementielle
       2-Zoom sur la cellule active avec une macro associée à des touches de raccourci

Exemple: Zoom sur la cellule active avec une procédure événementielle

Le code VBA:
      Pour que cette procédure événementielle soit fonctionnelle, il faut mettre le
      code VBA dans la feuille où se situe ce tableau (clic droit sur l'onglet
      puis visualiser le code et ajouter le code ci-dessous).
     

Private Sub Worksheet_SelectionChange( ByVal Target As Range)

   FontSize = ActiveCell.Font.Size

   LargeSize = FontSize * 5 ' Coefficient multiplicateur

   Cells.Font.Size = FontSize

   ActiveCell.Font.Size = LargeSize

End Sub