[COLOR="SeaGreen"]' Code dans la feuille signe
[/COLOR]
[COLOR="DarkSlateGray"]Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$3" Then
With Me.[E3]
If IsEmpty(.Value) Then
.Interior.ColorIndex = xlNone
Else
Select Case Sheets("2009").Cells(Day(.Value) + 4, Month(.Value) * 4 + 1).Value
Case "B": .Interior.ColorIndex = Sheets("2009").Cells(Day(.Value) + 4, Month(.Value) * 4).FormatConditions(1).Interior.ColorIndex
Case "V": .Interior.ColorIndex = Sheets("2009").Cells(Day(.Value) + 4, Month(.Value) * 4).FormatConditions(2).Interior.ColorIndex
Case "j": .Interior.ColorIndex = Sheets("2009").Cells(Day(.Value) + 4, Month(.Value) * 4).FormatConditions(3).Interior.ColorIndex
Case "R": .Interior.ColorIndex = Sheets("2009").Cells(Day(.Value) + 4, Month(.Value) * 4).Interior.ColorIndex
Case Else: .Interior.ColorIndex = 3 [COLOR="SeaGreen"]' 1er mai[/COLOR]
End Select
End If
End With
End If
End Sub[/COLOR]