Discussion :

[castours]

Bonjour
Sous Access 2000.
Avec une requête sélection, je trie des enregistrements au nombre d'une vingtaine.
Actuellement je les imprimes dans états par groupes.
Exemple grpe 120
22 enregistrement.
Sur ces 22 lignes, je voudrai griser les 12 premières lignes de mon états lors de la visualisation et de l'impression.
Il y a sans doute à mettre une petite procédure à l'ouverture de état.
Mais ne connaissant que très peu VBA
voulez vous m'aidez.
Je vous en remercie
Castours

[Mahefasoa]

Salut,
L'astuce, si je ne m'abuse, c'est de numéroter les lignes (enregistrements) et de faire une mise en forme conditionnelle.
Pour numéroter il faut créer une zone de texte et Sur chaque impression de la section Détail, incrémenter une variable et placer le contenu dans la zone de texte. Fais en sorte que la zone de texte couvre la totalité de la section détail et se trouve en arrière plan. les autres contrôles ne doivents pas avoir une coleur de remplissage.
Pour la mise en forme conditionnelle, qui se base sur la zone de texte contenant le numéro, tu passes par Format, Mise en forme conditionnelle, tu pose la condition (si le condentu est moins de 13) et la mise en forme à appliquer (i.e. remplir par le gris le fond de la zone de texte).

Je sais que ce que je te dis est assez théorique mais à toi d'essayer!
Bon courage et @+

[Invité]

Une mise en forme conditionnelle peut fonctionner effectivement, sinon voici le code à mettre dans ton état :

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
Option Compare Database
Private blnCouleur As Boolean
 
Private Sub EntêteGroupe0_Format(Cancel As Integer, FormatCount As Integer)
  'Initialiser la variable au début de chaque page, on débute par le fond en gris-clair.
  blnCouleur = True
End Sub
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
  ' Objectif: mettre en alternance la couleur de fond des lignes en couleur et en blanc.
  '
  If blnCouleur Then 'fond de la ligne en gris clair
    Me.Section(acDetail).BackColor = 12500670
  Else
    Me.Section(acDetail).BackColor = vbWhite
  End If
  'Inversion de la valeur booléenne après formatage et impression de chaque ligne
  blnCouleur = Not blnCouleur
End Sub

A+