couleur w.e

[pascal]

Bonjour,
J'ai des feuilles contenant des calendriers,je souhaite colorier les w.e dans la colonne A,le debut comence en A10 et fini en A31
Quel code en vba appliqué?
Merci
Pascal

 

[didier]

Bojour Pascal

Tu peux le faire avec un format conditionnel

La formule est =JOURSEM(A10;2)>5

Salut

Didier

 

[OnErrorResumeNext]

bonjour Pascal,

si tu veux vraiment en VBA :

-----------------------------------------------------
Sub ColorWeekEnd()
For Each d In Range("A10:A31")
If WorksheetFunction.Weekday(d.Value, 2) > 5 Then
d.Interior.ColorIndex = 33 ' ou autre
End If
Next
End Sub

amicalement