Couleur sous condition d'un Etat à partir d'une requête analyse croisée

**Williamm** · 09/08/2011, 11h38

Bonjour à tous et à toutes,

Voilà, j'ai un petit problème car je chercher à utiliser un code couleur sous certaines conditions mais ça ne marche pas.

J'ai crée un état sous forme de planning dans lequel j'aimerai afficher des couleurs. Cet état provient d'une requête analyse croisée dans laquelle j'ai:

comme entete de ligne: "Année", "Semaine", "Noms", "Sigles" et "DernierDeHoraire"
comme entete de colonne: "Jour" (il aparait donc Lu, Ma, Me, ..., Di)
comme valeur: "Horaire1"

Le planning est étalé sur 5 semaines.

J'aimerai afficher une couleur grisée dans les cases vides pour les "Noms" dont le "DernierDeHoraire" est 7-320 et dont le "Sigle" est TECH et afficher une couleur blanche pour les même conditions mais dont le "DernierDeHoraire" est A-320.

Le problème dans mon code c'est qu'il colorie les cases uniquement en fonction de la première semaine.

Si par exemple, je choisi d'afficher les semaines 40,41,42,43 et 44 et que la personne est "7-320" alors Access coloriera toutes les autres cases d'une même ligne même si dans la semaine 42 la même personne est "A-320"

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
Dim S1 As Variant
Dim S2 As Variant
Dim S As Variant
 
S1 = 40 
S2 = 44
 
For S = S1 To S2
 
If (Me![Semaine] Like S) And (Me![DernierDeHoraire1] Like "7*") And IsNull(Me![A Lu] = True) And (Me![Cigles] Like "*T*") Then
Me![A Lu].BackColor = 13685711
ElseIf (Me![DernierDeHoraire1] Like "A*") And IsNull(Me![A Lu] = True) And (Me![Cigles] Like "*T*") Then
Me![A Lu].BackColor = 16777215
End If
 
If (Me![Semaine] Like S) And (Me![DernierDeHoraire1] Like "7*") And IsNull(Me![B Ma] = True) And (Me![Cigles] Like "*T*")  Then
Me![B Ma].BackColor = 13685711
ElseIf (Me![DernierDeHoraire1] Like "A*") And IsNull(Me![B Ma] = True) And (Me![Cigles] Like "*T*") Then
Me![B Ma].BackColor = 16777215
End If
.
.
.
.
 
Next S
 
End Sub

Quelqu'un a t-il une solution?
Merci
Will

**User** · 09/08/2011, 17h21

Salut,

Cela ne va pas résoudre ton problème, mais il me semble qu'il te faut déjà remplacer :

Code :

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

IsNull(Me![A Lu] = True)

par

Code :

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

IsNull(Me![A Lu])

A+

**Williamm** · 10/08/2011, 08h47

Ca n'a entraîné aucun changement :s
Tu as une idée pour mon problème ?

**User** · 10/08/2011, 11h22

Salut,

Pourquoi tu boucles de la semaine 40 à la semaine 44 sur l'évènement print de la section détail ?

L'évènement print concerne un enregistrement, une ligne de ton état, donc une semaine précise identifié par le champ Semaine...

Vérifie ce problème

**Williamm** · 10/08/2011, 11h34

Alors je t'explique comme j'ai procédé:

J'ai crée un formulaire à partir duquel l'utilisateur rentre sa "Semaine Début" et "Semaine Fin"
L'état peut afficher uniquement 5 semaines.

Je clique ensuite sur un bouton pour mettre à jour ma requête pour qu'il sélectionne que les semaines prises en compte.
Ensuite je clique sur un bouton qui m'ouvre l'Etat.

Comment faire pour qu'il me grise uniquement les cases où une personne est "7-320" dans "DernierDeHoraire" ?

Je te joins un Impr Ecran de mon état en mode création pour être plus précis.

Mon problème étant toujours le fait que si la personne est "7-320" à la "Premeire Semaine" alors Access grisera tous les reste de la ligne en gris meme si à la 2eme semaine il n'est pas "7-320" :/

En faisant uniquement çà, ca ne marche pas non plus:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
 
If (Me![DernierDeHoraire1] Like "*7*") And IsNull(Me![A Lu] = True) And (Me![Cigles] Like "*T*") Then
Me![A Lu].BackColor = 13685711
End If
 
If (Me![DernierDeHoraire1] Like "*7*") And IsNull(Me![B Ma] = True) And (Me![Cigles] Like "*T*") Then
Me![B Ma].BackColor = 13685711
End If
 
If (Me![DernierDeHoraire1] Like "*7*") And IsNull(Me![C Me] = True) And (Me![Cigles] Like "*T*") Then
Me![C Me].BackColor = 13685711
End If
 
If (Me![DernierDeHoraire1] Like "*7*") And IsNull(Me![D Je] = True) And (Me![Cigles] Like "*T*") Then
Me![D Je].BackColor = 13685711
End If
 
If (Me![DernierDeHoraire1] Like "*7*") And IsNull(Me![E Ve] = True) And (Me![Cigles] Like "*T*") Then
Me![E Ve].BackColor = 13685711
End If
 
If (Me![DernierDeHoraire1] Like "*7*") And IsNull(Me![F Sa] = True) And (Me![Cigles] Like "*T*") Then
Me![F Sa].BackColor = 13685711
End If
 
If (Me![DernierDeHoraire1] Like "*7*") And IsNull(Me![G Di] = True) And (Me![Cigles] Like "*T*") Then
Me![G Di].BackColor = 13685711
End If
 
End Sub