Comment encercler une cellule dans Excel ?
Lorsque vous éditez une feuille de calcul, vous pouvez avoir besoin de dessiner un cercle autour d'une cellule pour la mettre en évidence, comme le montre la capture d'écran ci-dessous. Voici quelques astuces pour encercler une cellule dans Excel.
Encercler une cellule avec une forme ovale
Encercler une cellule avec VBA
Encercler une cellule avec une forme ovale
Pour encercler une cellule, vous devez insérer une forme ovale.
1. Cliquez sur Insérer > Formes, puis sélectionnez la forme Ovale dans la section Formes de base de la liste. Voir la capture d'écran :
2. Dessinez l'ovale pour encercler la cellule dont vous avez besoin. Voir la capture d'écran :
3. Faites un clic droit sur la forme et sélectionnez Format de la forme dans le menu contextuel.
4. Dans la fenêtre Format de la forme (ou volet Format de la forme), cliquez sur l'onglet Remplissage, puis faites glisser la flèche Transparence vers la droite pour afficher à 100 % dans la zone de texte. Voir la capture d'écran :
5. Fermez la fenêtre. Vous pouvez maintenant voir qu'il y a un cercle autour de la cellule.
Astuce : Par défaut, la forme se déplace et change de taille avec la cellule.
Encercler une cellule avec VBA
Si vous souhaitez rapidement encercler une cellule, vous pouvez utiliser le code VBA.
1. Sélectionnez la cellule que vous souhaitez encercler, puis appuyez simultanément sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insérer > Module et copiez le code VBA suivant dans la fenêtre qui s'affiche.
VBA : Encercler une cellule.
Sub DrawCircle()
'Updateby20141105
Dim Arng As Range
Dim WorkRng As Range
Set WorkRng = Application.Selection
For Each Arng In WorkRng.Areas
With Arng
x = Arng.Height * 0.1
y = Arng.Width * 0.1
Application.ActiveSheet.Ovals.Add Top: = .Top - x, Left: = .Left - y, _
Height: = .Height + 2 * x, Width: = .Width + 1.5 * y
With Application.ActiveSheet.Ovals(ActiveSheet.Ovals.Count)
.Interior.ColorIndex = xlNone
.ShapeRange.Line.Weight = 1.25
End With
End With
Next
WorkRng.Select
End Sub
3. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter le code VBA. Maintenant, la cellule sélectionnée est encerclée.
Conseils :
(1) Si vous sélectionnez plusieurs cellules adjacentes à la première étape, cette macro VBA encerclera ces cellules ensemble.
(2) Si vous sélectionnez plusieurs cellules non adjacentes à la première étape, cette macro VBA encerclera chaque cellule individuellement.
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 !