couleur de fond

bonjour Olivier,

il faut sélectionner la plage avant d'executer cette macro,

Sub Macro1()
For Each c In Selection
Select Case Weekday(c)
Case 1: c.Interior.ColorIndex = 6 '"Dimanche"
Case 2: c.Interior.ColorIndex = 38 '"Lundi"
Case 3: c.Interior.ColorIndex = 39 '"Mardi"
Case 4: c.Interior.ColorIndex = 12 '"Mercredi"
Case 5: c.Interior.ColorIndex = 22 '"Jeudi"
Case 6: c.Interior.ColorIndex = 30 '"Vendredi"
Case 7: c.Interior.ColorIndex = 35 '"Samedi"
End Select
Next
End Sub

isabelle

Bonjour à tous,

Sur une feuille de 500 lignes par 60 colonnes comportant les jours de la
semaine, je voudrais attibuer une couleur de fond (ou d'encre peu
importe) en fonction de ces jours.
exemple : tous les lundi en vert, les mardi en rouge, etc ....

Visiblement le format conditionnel ne convient pas ...

Si quelqu'un peut m'aider, merci d'avance.


Olivier