Mis en couleur d'enregistrements dans un formulaire continu

Version imprimable

24/06/2020, 21h39
maugernic

Mis en couleur d'enregistrements dans un formulaire continu

Bonjour,
j'ai un formulaire avec un sous-formulaire.
Dans les données de mon sous formulaire, j'ai 3 champs (couleur_R, couleur_V et couleur_B) et un champ de données

J'aimerai appliquer la couleur de fond (correspondant au RVB) sur le champ de données.

J'ai essayé de créer une mise en forme conditionnelle en VBA mais je crois qu'access me limite à 3 MEFC avec une expression.
J'ai essayé de définir les propriétés backcolor par le VBA mais, ça l'applique sur l'ensemble des enregistrements et non pas en fonction du champ de données.

J'ai fait pas mal de recherche dans ce forum et sur le net et je n'ai rien trouvé qui réponde à mon besoin. Aussi je me tourne vers vous.
Si quelqu'un a une piste, je suis preneuse.

D'avance merci !
Nicole
25/06/2020, 12h02
marot_r

Bonjour.

Quelle version d'Access utilises-tu ?

Depuis la version 2007 la mise en forme conditionnelle permet beaucoup plus que 3 règles, donc si tu peux c'est la solution la plus simple.

Pour les versions antérieures, il faut traiter cela comme l'affichage conditionné d'une image dans un formulaire continu.
Le rectangle de couleur étant en fait une image de rectangle de couleur (dans un fichier .jpg).
Fait une recherche sur cela tu devrais trouver ton bonheur.

A+

Merci d'avoir pris le temps de répondre.
Je suis en Access (dernière version) via office 365

voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    'Va chercher la liste des tâches
    Texte_SQL = "SELECT * FROM Couleurs_Thematiques"
    Set MonTheme = CurrentDb.OpenRecordset(Texte_SQL)
   '
    'On supprime toutes les mises en forme conditionnelles
    Me.Nom_tache.FormatConditions.Delete
 
    MonTheme.MoveFirst
    'pour chaque tâche
    Do While Not MonTheme.EOF
        'On définit la couleur de fond et de police correspondant à la tâche
        Me.Nom_tache.FormatConditions.Add acExpression, , "[Them_Tache]= '" & MonTheme![Thème] & "'"
        Me.Nom_tache.FormatConditions.Item(IntI).ForeColor = RGB(MonTheme!Couleur_police_R, MonTheme!Couleur_police_G, MonTheme!Couleur_police_B)
        Me.Nom_tache.FormatConditions.Item(IntI).BackColor = RGB(MonTheme!Couleur_fond_R, MonTheme!Couleur_fond_G, MonTheme!Couleur_fond_B)
        IntI = IntI + 1
        MonTheme.MoveNext
    Loop

J'ai un message d'erreur dès que IntI=3 : "Le paramètre que vous avez entré est trop élevé"

25/06/2020, 16h48
marot_r

Bonjour.

Je ne l'ai jamais fait par code dans une version récente. Il est possible qu'il y ai encore la limitation au niveau du VBA ou qu'il faille utiliser une autre méthode.

Par l'interface de conception, bouton Mise en Forme conditionnelle, Onglet Format en mode création de formulaire cette limitation n'existe plus.

Je viens de faire un test avec 4 règles sans problème.

A+
25/06/2020, 16h51
maugernic

oui, merci.
J'avais aussi essayé.

Merci de vous être penché sur mon problème.
25/06/2020, 17h14
marot_r

Bonjour.

On dirait que c'est la création qui n'est pas possible en VBA.
Si tu crées tes règles à la main tu peux les modifier.
Ici un post à ce sujet.
https://www.utteraccess.com/forum/in...wtopic=2034035
Il y a un exemple de code qui va jusqu'à 7 règles.

A+
03/07/2020, 18h59
maugernic

Bonjour, merci pour cet article, mais l'utilisation des 7 règles est uniquement au niveau format, pas dans la modification de l'expression. Et c'est là que le problème se situe.

J'ai aussi essayé de créer plusieurs mises en forme conditionnelle pour n'avoir qu'à les modifier mais là encore, j'ai un message d’erreur.

Le problème est dès qu'on cherche à faire de la mise en forme conditionnelle avec des expressions par vba !
Nicole
03/07/2020, 19h34
marot_r

Bonjour.

C'est un cas typique (et frustrant) de produit "à moitié cuit" comme les macros de données et les formulaires de navigation.

Une idée peut-être, comme tu peux appeler une fonction VBA dans une mise en forme conditionnelle, peut-être peux-tu déléguer le calcul de l'expression.
Un truc du genre dans l'expression =MaFonctionVBA(param1, param2, ...) avec MaFonctionVBA qui retourne true ou false.
Tu crées éventuellement beaucoup plus de règles que nécessaire et tu "choisis" celles que tu veux.
On peut même imaginer que ce choix soit dans une table donc relativement plus facile à mettre à jour.
Bon c'est un peu passer par Marseille pour aller de Paris à Lille mais si ça marche et que les temps de réponse sont convenables c'est peut-être une option.

Bon sinon il te reste la solution avec les images conditionnées, si tu peux l'utiliser, ou alors trouver une autre idée de mise en forme.

A+
03/07/2020, 19h51
marot_r

Toujours dans l'idée de contournement je n'ai jamais essayé dans une MFC, mais connais-tu Eval() qui te permet de faire un calcul à partir d'une chaîne de caractères.

J'essaierai quelque chose comme : =Eval(DFirst("Expression"; "tblParamExpression"; "[IdRegle]=1")) et dans la table [tblParamExpression] et le champ [Expression], tu mets le calcul que tu veux faire genre "=(Unevaleur=UneAutreValeur)".

A+
03/07/2020, 21h52
maugernic

Non, je ne connaissais pas cette fonction. Je vais essayer, merci
04/07/2020, 06h29
LeMin

1 pièce(s) jointe(s)

Citation:

Envoyé par marot_r

Bonjour.

Je ne l'ai jamais fait par code dans une version récente. Il est possible qu'il y ai encore la limitation au niveau du VBA ou qu'il faille utiliser une autre méthode.

Par l'interface de conception, bouton Mise en Forme conditionnelle, Onglet Format en mode création de formulaire cette limitation n'existe plus.

Je viens de faire un test avec 4 règles sans problème.

A+

Bonjour @marot_r
Je me connecte à cette discussion car j'ai essayé en access2007, et, je n'arrive pas avec l'interface, a dépasser 3 conditions.
Onglet Création / Mise en forme conditionnelle / et fenetre ci dessous bloquée à 3 conditions
Pièce jointe 574379
J'ai loupé quelque chose ?
06/07/2020, 07h12
maugernic

Bonjour Lemin, je crois que c'est après access 2007 que ce n'est plus limité.:?
06/07/2020, 11h51
marot_r

Bonjour.

Autant que je sache c'est à partir de 2007 mais il faut que la base soit une base 2007 (accdb) et pas un ancien format (mdb) qu'on peut continuer àutiliser avec les nouvelles versions.

Ta base est bien au format 2007 ?

Attention si tu la convertis c'est un aller sans retour ou presque. Une fois en format 2007 il est très difficile de revenir au format antérieur.

A+
06/07/2020, 11h54
LeMin

Citation:

Envoyé par marot_r

Bonjour.

Autant que je sache c'est à partir de 2007 mais il faut que la base soit une base 2007 (accdb) et pas un ancien format (mdb) qu'on peut continuer àutiliser avec les nouvelles versions.

Ta base est bien au format 2007 ?

Attention si tu la convertis c'est un aller sans retour ou presque. Une fois en format 2007 il est très difficile de revenir au format antérieur.

A+

Oui, ma base est bien en .accdb