couleur ligne colone

[janick]

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

 

[janick]

Bonjour,

Ci joint ma planche d' essai des lignes colonnes

Merci