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.
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: