Brian a demandé s’il existe un moyen dans Excel d’agrandir le contenu de la cellule actuelle. Il travaille sur une feuille de calcul qui doit être à un réglage de zoom faible (30% environ) pour voir la feuille entière. Au fur et à mesure que différents scénarios sont exécutés, les cellules changent de couleur en fonction du résultat. Brian peut facilement voir quelles cellules il doit examiner, mais il ne peut pas les lire à cause du réglage du zoom. Il change normalement le zoom, lit la réponse et effectue un zoom arrière pour exécuter un autre scénario. Ce serait beaucoup plus facile si seule la cellule actuelle (celle sélectionnée) était agrandie à un niveau lisible.

Il n’existe pas de méthode intégrée dans Excel pour effectuer cette méthode sélective de zoom, mais il existe quelques solutions de contournement que vous pouvez utiliser. Une telle solution de contournement consiste à utiliser une macro qui affiche la valeur dans la cellule active dans une boîte de message. Une telle macro est facile à ajouter au module de feuille de calcul:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

MsgBox ActiveCell.Address & ": " & ActiveCell.Value End Sub

Chaque fois que vous sélectionnez une cellule différente dans la feuille de calcul, la macro affiche une boîte de message qui affiche le contenu de cette cellule. Cela résout le problème, mais il peut être fastidieux de fermer continuellement des boîtes de message chaque fois que vous changez la cellule sélectionnée.

Vous pouvez également créer une macro qui modifie simplement la taille de la police de la cellule actuellement sélectionnée. La macro simple suivante, ajoutée au module de feuille de calcul, examine la cellule actuellement sélectionnée et augmente sa taille de police de 500%.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

FontSize = ActiveCell.Font.Size     LargeSize = FontSize * 5     Cells.Font.Size = FontSize     ActiveCell.Font.Size = LargeSize End Sub

L’utilité d’une telle macro dépendra, bien sûr, de la façon dont vous avez mis en forme la hauteur et la largeur de la cellule sélectionnée. S’il s’agit de hauteurs et de largeurs statiques, il est possible que l’augmentation de la taille de la police rende le contenu de la cellule illisible. Si la hauteur et la largeur sont dynamiques, le contenu doit être tout à fait lisible.

Encore une autre approche consiste à créer votre propre image agrandie de chaque cellule telle qu’elle est sélectionnée:

Private Sub ZoomCell(ZoomIn As Single)

Dim s As Range     Set s = Selection

'Get rid of any existing zoom pictures     For Each p In ActiveSheet.Pictures         If p.Name = "ZoomCell" Then             p.Delete             Exit For         End If     Next

'Create a zoom picture     s.CopyPicture Appearance:=xlScreen, _       Format:=xlPicture     ActiveSheet.Pictures.Paste.Select     With Selection         .Name = "ZoomCell"

With .ShapeRange             .ScaleWidth ZoomIn, msoFalse, _               msoScaleFromTopLeft             .ScaleHeight ZoomIn, msoFalse, _               msoScaleFromTopLeft             With .Fill                 .ForeColor.SchemeColor = 9                 .Visible = msoTrue                 .Solid             End With         End With     End With     s.Select     Set s = Nothing End Sub

Pour utiliser la macro, vous devez l’appeler chaque fois que la sélection dans la feuille de calcul change. Pour ce faire, vous ajoutez une petite macro au module de feuille de calcul:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ZoomCell 6 End Sub

Dans ce cas, chaque fois que la sélection de cellule est modifiée, la macro ZoomCell est exécutée pour créer une image qui est six fois la taille de l’original. S’il est gênant que l’image change automatiquement chaque fois que vous sélectionnez une cellule différente, vous pouvez supprimer la macro de déclenchement dans le module de feuille de calcul et modifier la macro ZoomCell afin qu’elle s’exécute chaque fois que vous la lancez, peut-être avec une touche de raccourci qui vous installez.

Sub ZoomCell()

Dim s As Range     Dim ZoomIn As Single     Set s = Selection     ZoomIn = 6

'Get rid of any existing zoom pictures     For Each p In ActiveSheet.Pictures         If p.Name = "ZoomCell" Then             p.Delete             Exit For         End If     Next

'Create a zoom picture     s.CopyPicture Appearance:=xlScreen, _       Format:=xlPicture     ActiveSheet.Pictures.Paste.Select     With Selection         .Name = "ZoomCell"

With .ShapeRange             .ScaleWidth ZoomIn, msoFalse, _               msoScaleFromTopLeft             .ScaleHeight ZoomIn, msoFalse, _               msoScaleFromTopLeft             With .Fill                 .ForeColor.SchemeColor = 9                 .Visible = msoTrue                 .Solid             End With         End With     End With     s.Select     Set s = Nothing End Sub

Une dernière option consiste à sortir complètement d’Excel et à s’appuyer sur Windows.

L’un des outils d’accessibilité fournis avec le système d’exploitation s’appelle Magnifier. Le programme agrandit la zone près du pointeur de la souris, superposant une autre zone de l’écran avec l’image agrandie. Vous pouvez utiliser cet outil en choisissant Démarrer | Tous les programmes | Accessoires | Accessibilité | Loupe. Vous verrez la zone agrandie apparaître en haut de votre écran, et une boîte de dialogue qui vous permet de définir différentes options pour le programme. Lorsque vous n’avez plus besoin de l’agrandissement, vous pouvez le désactiver en cliquant sur Quitter dans la boîte de dialogue.

_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 (3114) 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:

lien: / excelribbon-Magnifying_Only_the_Current_Cell [Agrandir uniquement la cellule actuelle].