Ligne active en jaune
Essaye cette procédure à recopier dans le module de la feuille qui t'intéresse (clic droit sur son onglet puis 'Visualiser le code'). Elle surligne en jaune la ligne de la cellule active lorsqu'on la déplace avec les flèches haut et bas :
Private sub Worksheet_SelectionChange(ByVal Target As Range) Target(0).EntireRow.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 6 Target(2).EntireRow.Interior.ColorIndex = xlNone end sub
Dans la feuille de code de l'onglet où tu désires cette proc.
Private sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
' et si tu veux ajouter la sélection de la colonne
' .EntireColumn.Interior.ColorIndex = 36
End With
end subUne autre approche, illustrée par Philippe Cochard dans cet exemple permet de faire varier la couleur de la ligne et de la colonne de la cellule active en fonction de la zone dans laquelle elle se trouve.
Auteur : ChrisV
Mots clefs associés à cette page : visible, ligne, activer, activate
- Vous devez vous identifier ou créer un compte pour écrire des commentaires

Copier coller
C'est génial !
cependant on perd la possibilité de faire un copier coller
JEC