[SIZE=2]Private [COLOR=navy]Sub[/COLOR] Worksheet_Change([COLOR=navy]ByVal[/COLOR] Target[COLOR=navy] As [/COLOR]Range)
[COLOR=green]'myDearFriend! - Août 2006[/COLOR]
[COLOR=navy]Dim [/COLOR]TabTemp[COLOR=navy] As Variant
Dim [/COLOR]L[COLOR=navy] As Long
Dim [/COLOR]Sortir[COLOR=navy] As Boolean[/COLOR]
[COLOR=green]'Ne gère pas les sélections de plages[/COLOR]
[COLOR=navy]If [/COLOR]Target.Cells.Count > 1 [COLOR=navy]Then Exit Sub[/COLOR]
[COLOR=navy]If [/COLOR]Application.Intersect(Target, Columns(5))[COLOR=navy] Is Nothing Then Exit Sub[/COLOR]
[COLOR=navy]If [/COLOR]Target.Value <> "" [COLOR=navy]Then[/COLOR]
[COLOR=navy]If [/COLOR]Is[COLOR=navy]Date[/COLOR](Target.Value) [COLOR=navy]Then[/COLOR]
[COLOR=navy]With[/COLOR] Range("MFCmultiples")
[COLOR=green]'Charge les préférences dans un tableau variant temporaire[/COLOR]
TabTemp = .Value
[COLOR=green]'Détermine le format à utiliser suivant la valeur de la cellule[/COLOR]
[COLOR=navy]For [/COLOR]L = 1[COLOR=navy] To UBound[/COLOR](TabTemp, 1)
[COLOR=navy]Select Case[/COLOR] L
[COLOR=navy]Case[/COLOR] 1
[COLOR=navy]If [/COLOR]Target.Value < TabTemp(2, 1) [COLOR=navy]Then[/COLOR] Sortir = [COLOR=navy]True[/COLOR]
[COLOR=navy]Case UBound[/COLOR](TabTemp, 1)
[COLOR=navy]If [/COLOR]Target.Value >= TabTemp([COLOR=navy]UBound[/COLOR](TabTemp, 1) - 1, 1) + 31 [COLOR=navy]Then[/COLOR] Sortir = [COLOR=navy]True[/COLOR]
[COLOR=navy]Case Else[/COLOR]
[COLOR=navy]If [/COLOR]Format(Target.Value, "mmyy") = Format(TabTemp(L, 1), "mmyy") [COLOR=navy]Then[/COLOR] Sortir = [COLOR=navy]True[/COLOR]
[COLOR=navy]End Select[/COLOR]
[COLOR=navy]If [/COLOR]Sortir [COLOR=navy]Then Exit[/COLOR] For
[COLOR=navy]Next[/COLOR] L
[COLOR=green]'Applique le fond de couleur à la ligne[/COLOR]
Target.EntireRow.Range("A1:E1").Interior.ColorIndex = .Cells(L, 1).Interior.ColorIndex
[COLOR=navy]End With[/COLOR]
[COLOR=navy]End If[/COLOR]
[COLOR=navy]Else[/COLOR]
[COLOR=green]'Efface le fond de couleur[/COLOR]
Target.EntireRow.Range("A1:E1").Interior.ColorIndex = xlNone
[COLOR=navy]End If
End[/COLOR] Sub[/SIZE]