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.