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.