Dans cet article, vous apprendrez à changer la couleur de la ligne en un clic.

Cliquez sur l’onglet Développeur Dans le groupe Code, sélectionnez Visual Basic

img1

Entrez le code suivant dans la feuille de calcul actuelle (sheet1 dans notre exemple)

Private Sub Worksheet_SelectionChange (ByVal Target As Range)

Dim rownumber As Integer

rownumber = ActiveCell.Row

Si ActiveCell.Value <> «  » Alors

Range (« A » & rownumber & « : D » & rownumber) .Interior.ColorIndex = 6

Fin si

End Sub

img2

L’événement SelectionChange sera activé chaque fois que l’utilisateur sélectionne une cellule et il changera la couleur du blanc au jaune.

Si la cellule active est vide, le code ne s’exécutera pas.

Si nous cliquons sur la cellule B3, la ligne sera mise en évidence en jaune. Reportez-vous à l’image ci-dessous

img3

Ici, vous pouvez voir que la barre de formule affiche la cellule sélectionnée, c’est-à-dire la cellule B3. Si nous sélectionnons la cellule A8, la ligne 8 sera mise en surbrillance. Reportez-vous à l’image ci-dessous.

img4

Si vous souhaitez mettre en évidence une seule ligne à la fois, vous devez ajouter une ligne au code précédent.

Code ajouté:

Range (« A1: D13 »). Interior.ColorIndex = xlNone

Le code devient:

Private Sub Worksheet_SelectionChange (ByVal Target As Range)

Dim rownumber As Integer

rownumber = ActiveCell.Row

Si ActiveCell.Value <> «  » Alors

Range (« A1: D13 »). Interior.ColorIndex = xlNone

Range (« A » & rownumber & « : D » & rownumber) .Interior.ColorIndex = 6

Fin si

End Sub

Désormais, une seule ligne sera mise en surbrillance à un moment donné.

De cette façon, vous pouvez mettre en évidence les lignes en un seul clic, en utilisant le code VBA.