XL 2013 Cellule blanche au click

maval · 23 Juillet 2016

Bonjour

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

Code:

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 · 23 Juillet 2016

Bonjour

Essaye

VB:

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 · 23 Juillet 2016

Salut Chris

Je te remercie nickel
Bonne après midi

XL 2013 Cellule blanche au click

maval

XLDnaute Barbatruc

Chris401

XLDnaute Accro

maval

XLDnaute Barbatruc

Discussions similaires