Comment zoomer ou agrandir les cellules sélectionnées dans Excel ? 

Comme nous le savons tous, Excel dispose d'une fonction de zoom pour nous aider à augmenter la taille des valeurs des cellules dans toute la feuille de calcul. Mais parfois, nous avons seulement besoin de zoomer ou d'agrandir uniquement les cellules sélectionnées. Existe-t-il de bonnes idées pour agrandir uniquement les cellules sélectionnées dans une feuille de calcul ?

Zoomer ou agrandir la cellule sélectionnée avec un code VBA

Zoomer ou agrandir la cellule sélectionnée avec un code VBA

Il se peut qu'il n'y ait aucun moyen direct d'agrandir les cellules sélectionnées dans Excel, mais ici, je peux vous présenter un code VBA pour traiter cette tâche comme solution de contournement. Veuillez procéder comme suit :

1. Faites un clic droit sur l'onglet de la feuille où vous souhaitez agrandir automatiquement les cellules sélectionnées, puis choisissez Affichage du code dans le menu contextuel. Dans la fenêtre Microsoft Visual Basic pour applications qui s'ouvre, copiez et collez le code suivant dans le Module vide :

Code VBA : Zoomer ou agrandir les cellules sélectionnées :

Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xShape As Variant
    Set xRg = Target.Areas(1)
    For Each xShape In ActiveSheet.Pictures
        If xShape.Name = "zoom_cells" Then
            xShape.Delete
        End If
    Next
    If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
    Application.ScreenUpdating = False
    xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
    Application.ActiveSheet.Pictures.Paste.Select
    With Selection
        .Name = "zoom_cells"
        With .ShapeRange
            .ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
            .ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
            With .Fill
                .ForeColor.SchemeColor = 44
                .Visible = msoTrue
                .Solid
                .Transparency = 0
            End With
        End With
    End With
    xRg.Select
    Application.ScreenUpdating = True
    Set xRg = Nothing
End Sub

2. Ensuite, enregistrez et fermez cette fenêtre de code. Maintenant, lorsque vous sélectionnez ou cliquez sur certaines cellules de données, les cellules seront automatiquement agrandies sous forme d'image, voir capture d'écran :

Remarque : Les cellules sélectionnées reviendront à leur taille d'origine après avoir sélectionné d'autres cellules.