Discussion :

[laurent27530]

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

[Ltspitfire]

Bonjour,

Sans tester essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Format(Cells(c, 1), "DDDD") = Samedi Then

Edit : voila la macro complete :

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
Sheets("Quotidien").Activate
 
DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
 
 For c = 3 To DerniereLigne 
    zone = Range(Cells(c, 1), Cells(c, 21))
 
    If Format(Cells(c, 1), "DDDD") = Samedi 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

Cordialement,
Ltspitfire

[laurent27530]

J'obtiens un code 424 a la ligne 18

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
For c = 3 To DerniereLigne
    zone = Range(Cells(c, 1), Cells(c, 21))
 
    If Format(Cells(c, 1), "DDDD") = Samedi Then
        zone.Font.ColorIndex = 1
        With zone.Interior
            .ColorIndex = 40
            .Pattern = xlSolid
        End With
    Else
        zone.Font.ColorIndex = 1        ' ligne en erreur 424 
        With zone.Interior
            .ColorIndex = 2
            .Pattern = xlSolid
        End With
    End If

[Ltspitfire]

Re,

Après test voila ca marche :

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
Sub Test()
'
' Test Macro
Sheets("Quotidien").Activate
 
DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
 
 For c = 3 To DerniereLigne
 
    If Format(Cells(c, 1), "DDDD") = "samedi" Then
       Range(Cells(c, 1), Cells(c, 21)).Font.ColorIndex = 1
        With Range(Cells(c, 1), Cells(c, 21)).Interior
            .ColorIndex = 40
            .Pattern = xlSolid
        End With
    Else
        Range(Cells(c, 1), Cells(c, 21)).Font.ColorIndex = 1
        With Range(Cells(c, 1), Cells(c, 21)).Interior
            .ColorIndex = 2
            .Pattern = xlSolid
        End With
    End If
  Next
End Sub

Cordialement,
Ltspitfire

[laurent27530]

ca marche très bien.

En revanche y a-t-il une syntaxe pour la ligne 10 pour tester samedi ou dimanche le Or ne semble pas fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Format(Cells(c, 1), "DDDD") = "samedi" Then

Et y a-t-il moyen de lancer la macro sur plusieurs feuilles a part recopier la macro en changeant la feuille activate.

[laurent27530]

La bonne syntaxe est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Format(Cells(c, 1), "DDDD") = "samedi" Or Format(Cells(c, 1), "DDDD") = "dimanche" Then

et non

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Format(Cells(c, 1), "DDDD") = "samedi" Or  "dimanche" Then