J
janick
Guest
Bonjour,
Je souhaiterais mettre en valeur une series de celulle ligne colonnes en fonction du mois auto.
=maintenant() J F M
x x x
J xx xx xx xx xx xx xx x x
F xx xx xx xx xx xx xx xx x x x
M xx xx xx xx xx xx xx xx xx xx
Private Sub Worksheet_Change(ByVal Target As Range)
'Plage de données e1:e12
If Not Application.Intersect(Target, Range("a9:a12")) Is Nothing Then
Select Case Target.Value
Case Is = 1: Target.EntireColumn.Range("f1:f9").Interior.ColorIndex = 5
Target.EntireRow.Range("b1:e1").Interior.ColorIndex = 5
Case Is = 2: Target.EntireRow.Range("b1:e1").Interior.ColorIndex = 6
Target.EntireColumn.Range("f1:f9").Interior.ColorIndex = 6
'Elimination des couleurs dans cellules vides
Case Is = 0: Target.EntireRow.Range("b1:e1").Interior.ColorIndex = 0
Target.EntireColumn.Range("f1:f9").Interior.ColorIndex = 0
End Select
End If
End Sub
Merci de vos conseils
Je souhaiterais mettre en valeur une series de celulle ligne colonnes en fonction du mois auto.
=maintenant() J F M
x x x
J xx xx xx xx xx xx xx x x
F xx xx xx xx xx xx xx xx x x x
M xx xx xx xx xx xx xx xx xx xx
Private Sub Worksheet_Change(ByVal Target As Range)
'Plage de données e1:e12
If Not Application.Intersect(Target, Range("a9:a12")) Is Nothing Then
Select Case Target.Value
Case Is = 1: Target.EntireColumn.Range("f1:f9").Interior.ColorIndex = 5
Target.EntireRow.Range("b1:e1").Interior.ColorIndex = 5
Case Is = 2: Target.EntireRow.Range("b1:e1").Interior.ColorIndex = 6
Target.EntireColumn.Range("f1:f9").Interior.ColorIndex = 6
'Elimination des couleurs dans cellules vides
Case Is = 0: Target.EntireRow.Range("b1:e1").Interior.ColorIndex = 0
Target.EntireColumn.Range("f1:f9").Interior.ColorIndex = 0
End Select
End If
End Sub
Merci de vos conseils