Discussion :

[cguedj]

Tout d'abord bonjour,
Je viens de chercher dans le forum la solution , mais rien à faire je ne la trouve pas. Aussi veuillez m'excuser si la question a déjà été posé.

Alors voila. Dans un état access, j'ai plusieurs lignes de détail pour un même groupe. Je voudrais que le fond de la section détail soit d'une couleur pour un groupe et d'une autre pour le groupe suivant.

Exemple:

NORD (en tête groupe)
Janvier 40
Février 75
SUD (en tête groupe)
Janvier 72
Avril 128
EST (en tête groupe)
Fevrier 55
Mars 18

Je voudrais que les lignes janvier et février du nord soient jaunes, les lignes janvier et avril du sud blanches et les lignes de février mars d'EST en jaune à nouveau.

Merci

[Invité]

C'est la même chose que changé de couleur pour un détail sauf que c'est pour le groupe !

Dans ton état, tu mets :

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
Option Compare Database
Private blnCouleur As Boolean
 
Private Sub Report_Open(Cancel As Integer)
  blnCouleur = True
End Sub
 
Private Sub EntêteGroupe0_Format(Cancel As Integer, FormatCount As Integer)
 ' Applique la couleur ou non suivant la valeur boléenne
  Me.EntêteGroupe0.BackColor = IIF(blnCouleur;ValCouleur;vbWhite)
End Sub
 
Private Sub PiedGroupe0_Format(Cancel As Integer, FormatCount As Integer)
  ' Inversion de la valeur
  blnCouleur = Not blnCouleur
End Sub

Voilà, ça doit être un truc comme ça

[cguedj]

Tout d'abord, merci pour ta réponse mais à l'instruction suivante, il me met erreur de syntaxe

Code :

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

1
2
3
4
Private Sub EntêteGroupe0_Format(Cancel As Integer, FormatCount As Integer)
 ' Applique la couleur ou non suivant la valeur boléenne
  Me.EntêteGroupe0.BackColor = IIF(blnCouleur;ValCouleur;vbWhite)
End Sub

[cguedj]

Ta réponse m'a beaucoup aidé ! En fait c'était un problème entre un ";" et une ",". Alors voici le code final qui fonctionne pour ceux qui comme moi cherche. Et encore un grand merci à toi BrunoM45

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
Option Compare Database
Private blnCouleur As Boolean
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
' Applique la couleur ou non suivant la valeur boléenne
  ValCouleur = 13499902
  Me.Détail.BackColor = IIf(blnCouleur, ValCouleur, vbWhite)
End Sub
 
Private Sub Report_Open(Cancel As Integer)
  blnCouleur = True
End Sub
 
Private Sub PiedGroupe0_Format(Cancel As Integer, FormatCount As Integer)
  ' Inversion de la valeur
  blnCouleur = Not blnCouleur
End Sub