bonjour,

Je souhaite changer la couleur d'une ligne en fonction de date

pour chaque ligne ou la est un samedi je désire mettre le fond orange de la colonne A à U

la date apparait dans la colonne A format 01/02/2015
j'ai tente cette macro sans succes

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Test()
'
' Test Macro
DerniereLigne = Sheets("Quotidien").Range("A2").CurrentRegion.End(xlDown).Row
 
 Sheets("Quotidien").Activate
 For c = 3 To DerniereLigne 
    zone = Range(Cells(c, 1), Cells(c, 21))
    Cells(c, 1).Select
 
    If Selection.Value = Weekday(Cells(c, 1)) = 1 Then
        zone.Font.ColorIndex = 1
        With zone.Interior
            .ColorIndex = 40
            .Pattern = xlSolid
        End With
    Else
        zone.Font.ColorIndex = 1
        With zone.Interior
            .ColorIndex = 2
            .Pattern = xlSolid
        End With
    End If
  Next
End Sub