XL 2013 Cellule blanche au click

[maval]

Bonjour


J'ai trouvé sur le site il y a quelque temps ce code que je crois qui viens de Pierrejean :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 15
Range("A" & Target.Row & ":J" & Target.Row).Interior.ColorIndex = 2
End Sub

Pour changer de couleur à chaque click dans une cellule, j’aimerai si possible le modifier c’est-à-dire qu’il fonctionne de « A5 :L200 et le reste de cellule soit constamment blanche.


Merci d’avance

 

[Chris401]

Bonjour

Essaye

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A5:L200")) Is Nothing Then
Range("A5:L200").Interior.ColorIndex = 15
Range("A" & Target.Row & ":L" & Target.Row).Interior.ColorIndex = 2
End If
End Sub

 

[maval]

Salut Chris

Je te remercie nickel
Bonne après midi