Discussion :

[Mulele]

Bonjour à tous,

Sous Access, suite à une requête croisée, dans mon état de liste de présence j'ai :
En-tête de colonne : jour du mois = 1;2;3;4...31 (Nom de champ = 01_Etiquette,02_Etiquette ... 31_Etiquette)

En-tête de ligne : nom des membres (Nom de champ = GPNom)

Valeur : code de présence (Nom de champ = 01;02;03...31)

Je voudrais mettre le fond du champ de couleur différentes suivant le code.

Je fais donc dans la section détail au formatage la procédure suivante :

Code :

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

1
2
3
4
5
if [01] = "P" then
   [01].BackColor = rgb(255,0,0)
elseif [01] = "M" then
   [01].BackColor = rgb(0,0,255)
end if

MAIS cela ne colorie rien ??.

Je voudrais aussi nommer le champ pour ne pas ecrire 31X la procédure mais faire un truc du genre :

Code :

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

1
2
3
4
5
6
7
for i = 1 to 31
     if Code(i) = "P" then
            Code(i).BackColor = rgb(255,0,0)
     elseif Code(i) = "M" then
            Code(i).BackColor = rgb(0,0,255)
     end if
next i

Voici, voilà j'espère avoir été clair ?

Merci de votre aide

merci d'ajouter les balises code | cafeine

[cafeine]

si tes controles s'appellent [01] .... [31] tu peux faire ça sur l'événement Format

Code :

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

1
2
3
4
5
6
7
for i = 1 to 31
     if Me.Controls(Format(i, "00")) = "P" then
            Me.Controls(Format(i, "00")).BackColor = rgb(255,0,0)
     elseif Me.Controls(Format(i, "00")) = "M" then
            Me.Controls(Format(i, "00")).BackColor = rgb(0,0,255)
     end if
next i

[Mulele]

Pour le "For/next" c'est parfait, et j'ai bien compris le principe.

J'avais un petit soucis car le BackColor ne changait jamais mais bien sûr,
il faut mettre Format Style fond sur STANDARD (Petit rappel)

Merci de ton aide.