Comment tracer un cercle autour d’une cellule dans Excel ?
Lorsque vous modifiez une feuille de calcul, vous aurez peut-être envie d’entourer une cellule d’un cercle pour la mettre clairement en évidence, comme le montre la capture d’écran ci-dessous. Découvrez dès maintenant quelques astuces efficaces pour tracer un cercle autour d’une cellule dans Excel.
Tracer un cercle autour d’une cellule à l’aide d’une forme ovale
Tracer un cercle autour d’une cellule à l’aide de VBA
Tracer un cercle autour d’une cellule à l’aide d’une forme ovale
Pour tracer un cercle autour d’une cellule, insérez une forme ovale.
1. Cliquez sur Insertion > Formes, puis sélectionnez Ovale dans la section Formes de base de la liste. Voir la capture d’écran :
2. Dessinez un ovale de façon à encercler la cellule souhaitée. Voir la capture d’écran :
3. Cliquez avec le bouton droit sur la forme et choisissez Format de la forme dans le menu contextuel.
4. Dans la boîte de dialogue Format de la forme(ou le volet)Format de la forme), cliquez sur l’onglet Remplissage, puis faites glisser la flèche de Transparence vers la droite jusqu’à ce que 100 % s’affiche dans la zone de texte. Voir la capture d’écran :
5. Fermez la boîte de dialogue : un cercle apparaît désormais autour de la cellule.
Astuce : Par défaut, la forme se déplace et redimensionne avec la cellule.
Tracer un cercle autour d’une cellule à l’aide de VBA
Pour tracer rapidement un cercle autour d’une cellule, utilisez simplement un code VBA.
1. Sélectionnez la cellule que vous souhaitez encercler, puis appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis copiez le code VBA suivant dans la fenêtre qui s’ouvre.
VBA : tracer un cercle autour d’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. La cellule sélectionnée est désormais encerclée.
Astuces :
(1) Si vous sélectionnez plusieurs cellules adjacentes à la première étape, cette macro VBA tracera un cercle autour de l’ensemble de ces cellules.
(2) Si vous sélectionnez plusieurs cellules non adjacentes à la première étape, cette macro VBA tracera un cercle autour de chacune d’elles individuellement.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre 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 rend votre travail bien plus facile
- Activez l’édition 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é de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels