Surbrillance de ligne au passage de la souris

RomainGe

XLDnaute Junior
Bonjour,


Tout est dans le titre je souhaite au passage de ma souris mettre en surbrillance la ligne sélectionnée.


j'ai trouver ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' adapter le numéro de la colonne (ici 3)...
' et de ligne pour ne pas toucher aux lignes entête (ici 1)
If Target.Column <> 3 _
Or Target.Row < 2 Then Exit Sub
If UCase(Target.Value) = "NON" Then
Target.EntireRow.Interior.ColorIndex = 3
Else
Target.EntireRow.Interior.ColorIndex = 0
End If
End Sub

mais il ne fonctionne pas si quelqu'un peut le convertir.

Merci d'avance.
 
Dernière édition:

Discussions similaires

Réponses
1
Affichages
249

Statistiques des forums

Discussions
312 361
Messages
2 087 602
Membres
103 604
dernier inscrit
CAROETALEX59