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.
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office, et facilite grandement votre travail
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 %, et réduit des centaines de clics de souris pour vous chaque jour !