[CR 10] Griser les dimanches

[Louack]

Bonjour tout le monde,
Je viens demander un peu d'aide car je dois griser les dimanches (en laissant le contenu de la cellule lisible) d'un tableau de CA recapitulatif d'une année.

Pour le moment j'ai fait ça au niveau de l'arrière plan :

Code :

1
2
3
 
IF DayOfWeek(DateTime ({?@annee},1 , {uspIntranetReport_41;1.jour}),crMonday) = 7 THEN
    crGray

Ce qui correspond parfaitement à ce que je veux. Seulement si je laisse ce code il me sort les autres cases en noir, ce qui n'est pas terrible...
Si je mets en blanc dans ma clause else, il me "mange" mes lignes que j'ai pu dessiner sur mon tableau.

Voilà je suis un peu perdu et je ne sais pas comment faire, si quelqu'un veut bien m'aider un peu.
Merci à vous

[Louack]

Bon ben pour info j'ai trouvé avec une clause de ce type

Code :

1
2
3
4
5
 
IF DayOfWeek(DateTime ({?@annee},4 , {uspIntranetReport_41;1.jour}),crMonday) = 7 THEN
    Color (204, 204, 204)
ELSE
    crNoColor

[Louack]

Bonjour,
En fait ce n'est pas résolu.
J'explique mon soucis. J'ai un tableau de 12 colonnes (un peu plus en fait mais on s'en fiche ici) et 31 lignes (32 si on compte l'entête...) alimenté par une procédure stockée.
Je veux griser mes dimanches, mais, soucis, en janvier j'ai 31 jours, mais pas en avril. Ce qui fait que lorsque je fais :

Code :

1
2
3
4
5
 
    IF DayOfWeek(CDate({uspIntranetReport_41;1.jour},1,{?@annee} ),crMonday) = 7 THEN
        Color (204, 204, 204)
    ELSE
        crNoColor

Il me grise bien une partie de mon rapport (la page 1 en fait) mais la page 2 saute car il n'y a pas forcément 31 jours en avril (et pire encore en février...)
Le message est :

Le numéro de jours doit être compris entre 1 et le nombre de jours du mois.

{uspIntranetReport_41;1.jour} : colonne affichant les chiffres de 1 à 31

J'avais espéré quelque chose du genre mais ça ne fonctionne pas :

Code :

1
2
3
4
5
6
7
8
9
 
Global StringVar s := ToText({uspIntranetReport_41;1.jour},"00") & "/01/" & ToText({?@annee},"0000");
IF IsDate (s) THEN
    IF DayOfWeek(CDate({uspIntranetReport_41;1.jour},1,{?@annee} ),crMonday) = 7 THEN
        Color (204, 204, 204)
    ELSE
        crNoColor
ELSE
    crNoColor

Pour le mois de janvier.
Je suis preneur de toute idée/aide.

Merci.