couleur w.e

pascal · 2 Janvier 2005

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 · 2 Janvier 2005

Bojour Pascal

Tu peux le faire avec un format conditionnel

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

Salut

Didier

OnErrorResumeNext · 2 Janvier 2005

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

couleur w.e

pascal

Guest

didier

Guest

OnErrorResumeNext

Guest

Discussions similaires