<Retour Grenier>

Question

Dans un formulaire, comment faire en sorte que la couleur (ou le gras, italique...) d'un champ varie en fonction de sa valeur ?

Réponse

Access 97 ne prévoit aucune option pour définir une mise en forme variable. Il est possible de "bidouiller" pour obtenir un résultat, mais ce n'est pas nécessairement pratique.

Access 2000 au contraire comporte une option nouvelle : la mise en forme conditionnelle (menu Format / Mise en forme conditionnelle). Voici un exemple :

• Les codes postaux égaux à 59000 sont écrits en vert clair sur fond vert foncé.
• Les codes postaux égaux à 21000 sont écrits en rouge sur fond rouge foncé.
• Les CA supérieurs à 50 sont écrits en noir sur fond orange.
• Les CA compris entre 20 et 35 sont simplement passés en gras.

Pour effectuer ces réglages :

1. Ouvrez le formulaire en mode Création (il est également possible de faire l'opération en mode Formulaire).
2. Cliquez dans l'un des champs à définir (par exemple : CA).
3. Cliquez sur le menu Format, puis sur l'option Mise en forme conditionnelle.
4. Réglez les options de la boîte de dialogue comme suit (le bouton Ajouter permet de créer des conditions supplémentaires) :

Pour le champ CodePostal, les réglages seraient :

Mise en forme "1 ligne sur 2" : version 1

Le format conditionnel permet dans certains cas d'effectuer une coloration "1 ligne sur 2". Dans notre exemple, la table comporte un champ supplémentaire (Numero), comportant des valeurs consécutives (1, 2, 3...).

• Dans la boîte "Mise en forme conditionnelle", changez "Valeur du champ" en "Expression".
• Dans la zone "Expression", définissez :

(Formulaires!frmSociétés!Numero mod 2)=0

où :

• frmSociétés est le nom du formulaire dans la base de données,
• Numero est le nom du champ pouvant être pair ou impair.

x mod 2 est le résultat de la division du nombre x par 2. Il vaut donc 0 pour un chiffre pair, et 1 pour un chiffre impair. Du coup (x mod 2)=0 est soit Vrai, soit Faux.

Mise en forme "1 ligne sur 2" : version 2

Dans le cas traité ci-dessus, le champ Numero doit être saisi dans la table, manuellement, et un tri sur un autre champ fausse le système (puisque les numéros pairs ne seront plus forcément consécutifs). Pour pallier ces problèmes, on peut faire la chose suivante :

• Supprimer le champ Numero de la table, mais le garder sur le formulaire,
• Dans la propriété "Source Contrôle" du champ Numero, taper :

=NumeroLigne(Formulaires!frmSociétés)

• Dans un module Visual Basic quelconque, taper la fonction suivante :

Function NumeroLigne(frm As Form)
Dim rst As Recordset

On Error Goto NumeroLigneErr
Set rst = frm.RecordsetClone
rst.Bookmark = frm.Bookmark
NumeroLigne = rst.AbsolutePosition
Set rst = Nothing
Exit Function

NumeroLigneErr:
	Set rst = Nothing
	NumeroLigne = Null
	Exit Function
End Function

Et la cerise sur le gâteau : définissez la propriété "Visible" du champ Numero à "Faux".

Cas des sous-formulaires

Si le formulaire est utilisé comme sous-formulaire, ça ne marche plus ! Il faut alors remplacer la condition par :

(Formulaires!frmFormulairePrincipal![Liste des sociétés].Form!Numero mod 2)=0

• frmFormulairePrincipal étant le nom du formulaire qui contient le sous-formulaire frmSociétés,
• "Liste des sociétés" étant le nom du sous-formulaire frmSociétés, tel qu'il est placé sur frmFormulairePrincipal (ce nom peut être différent de frmSociétés).

Quelques compléments

A mon -- humble -- avis, cette nouvelle fonction de format conditionnel a été un peu "bâclée" par Microsoft. D'après quelques tests rapides :

• Il est impossible de combiner plus de 3 conditions,

• La "coloration" est effectuée après un premier affichage classique du formulaire (on voit nettement 2 phases d'affichages se produire), ce qui ralentit les performances,

• Les bordures (encadrements) ne sont pas traitées, et des traits restent affichés malgré des bordures réglées sur  "transparentes",

• La sélection multiple ne fonctionne visiblement pas : sélectionnez plusieurs objets, appliquez-leur un format conditionnel, testez. Sélectionnez à nouveau ces objets, et refaites apparaître la boîte de format conditionnel... Alors ? Heureusement, chaque objet pris séparément conserve bien le réglage (c'est un minimum !).