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
283

Statistiques des forums

Discussions
312 779
Messages
2 092 045
Membres
105 167
dernier inscrit
JulJon2004