Mettre en couleur la ligne et la colonne de la cellule sélectionnée

[Richard_Kimou]

Bonjour tout le monde
svp aidez moi mettre en couleur la ligne et la colonne que le pointeur de la souris survole

voici le code que j’ai ecrit mais ca pass pas
Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next]

Range(LTR & :" & LTR.Interior.Colorindex = 0

RangerTarget. Row &*: & Target. Row) Interior. Color = vbYellow

LTR = Target.Row

End Sub

[Jacquinot_WILL-FREAD]

Bonjour,
essayer ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = 0
    Rows(Target.Row).Interior.Color = vbYellow
    Columns(Target.Column).Interior.Color = vbYellow
    Target.Interior.ColorIndex = 8
    Application.ScreenUpdating = True
End Sub

Classeur1.xlsm (19,6 Ko)

Cordialement

[Richard_Kimou]

@Jacquinot_WILL-FREAD

Worksheet_SelectionChange(ByVal Target As Range)

merci beaucoup ca fonctionne

[Jacquinot_WILL-FREAD]

Bonjour,
Parfait, n’oublie pas de mettre Solution