Excel - Surligner la ligne active

Septembre 2016


Quand on "ripe" sur la feuille on perd souvent le point de repère. Cette petite fonction surligne (le fond en rouge et l'écriture en jaune), toute la ligne où se trouve le curseur.

À placer dans le module de la feuille


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As Long
'Si la fonction activer/Déactiver est implémentée ajouter la ligne ci-dessous
if ActivationLigne then exit sub

If Target.Count > 1 Then Exit Sub
If AncAdress <> 0 Then 'remettre en normal
Rows(AncAdress).Interior.ColorIndex = xlNone
Rows(AncAdress).Font.ColorIndex = 0
End If
Target.EntireRow.Font.ColorIndex = 6
Target.EntireRow.Interior.ColorIndex = 3
Target.EntireRow.Interior.Pattern = xlSolid
AncAdress = Target.Row
End Sub

Éventuellement ajouter dans un module général (module1 par exemple)


Si vous voulez activer/désactiver la fonction
  • Soit mettre un bouton sur la macro
  • Soit mettre un raccourci

Par défaut le surlignage est actif, il faut cliquer sur le bouton ou le raccourci pour changer

Public ActivationLigne as boolean
Sub Activer()
ActivationLigne =not ActivationLigne
end sub

A voir également :

Ce document intitulé «  Excel - Surligner la ligne active  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.