Bonsoir,
Effectivement, je n'ai pas fait attention;
Y a t-il possibilité de mettre en couleur la colonne de A15 à A 80 ???
Comme la couleur revient au (blanc)
Et je souhaiterai laisser cette colonne en (Gris clair)
Voici mon code actuel:
Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim rCel As Range
'
If Not Intersect(Target, [L12]) Is Nothing Then
Range("A15:G80").Interior.Color = xlNone
Set rCel = Range("A:A").Find(what:=Target, lookat:=xlWhole, LookIn:=xlValues)
If Not rCel Is Nothing Then
rCel.Offset(0, 0).Select
rCel.Offset(0, 0).Interior.ColorIndex = 42
rCel.Offset(0, 1).Interior.ColorIndex = 46
rCel.Offset(0, 2).Interior.ColorIndex = 46
rCel.Offset(0, 3).Interior.ColorIndex = 46
rCel.Offset(0, 4).Interior.ColorIndex = 46
rCel.Offset(0, 5).Interior.ColorIndex = 46
rCel.Offset(0, 6).Interior.ColorIndex = 46
End If
End If
'
End Sub
Bien cordialement
Fabien 67