Discussion :

[Hepao]

Bonjour la communauté,

Je n'ai pas trouvé dans ACCESS 2013 comment mettre en forme en 3 couleurs un contrôle en fonction de la valeur numérique qu'il contient (entre 0 et 100), comme le permet les options des règles de mise en forme conditionnelle d'excel.
Par exemple : 0 en rouge, 100 en vert, en passant de façon dégradée par le jaune à 50.

Merci pour votre aide.

[tee_grandbois]

bonjour,
as-tu essayé en créant 3 règles en commençant par la valeur la plus grande ? je crois que cela fonctionne

[Hepao]

Bonjour,

Je peux bien sûr créer sous Access 3 règles de mise en forme couleur pour 3 valeurs distinctes, mais cela ne correspond pas à la formule de mise en forme conditionnelle que l'on peut trouver sous excel (et pas Access) qui est :
Appliquer une mise en forme à toutes les cellules d'après leur valeur :
Style de mis en forme : Echelle à trois couleur
Minimum / Milieu / Maximum
1 / 50 / 100
Rouge / jaune / vert

L'idée est d'indiquer visuellement en couleur par la valeur de la cellule entre 0 et 100, l'état d'avancement d'une tâche. Rouge : 0 (pas commencé), Vert : 100 (fini) afin de rendre mes états beaucoup plus efficaces.

[User]

Bonjour,

Comme le suggère tee_grandbois, quand Access trouve une règle qui correspond à une valeur, il applique la mise en forme et cesse de rechercher des règles supplémentaires.

Par contre, il n'y a pas de possibilité comme sous Excel de créer des dégradés de couleurs. Il faut définir toutes les règles pour chacune des couleurs dégradées à la main

49 mises en forme sont paramétrables depuis Access 2010.

[Hepao]

Si cela peut aider certains, (je ne suis pas un pro) j'ai réussi à coder en VBA dans Access la mise en forme 3 couleurs de mon champ.

Remarque 1:
Pour coder le dégradé, il a fallu trouver les règles de variation RGB. Je fournis le fichier excel qui m'a permis, en tatonnant, de coder de 0 (rouge) à 100 (vert en passant par 50 (jaune).

Dégradé_couleurs.xlsm

Remarque 2:
Dans Access, je suis arrivé à peu près au résultat attendu pour mon état, avec la mise en forme 3 couleurs d'un champ d'un enregistrement en fonction de sa valeur, mais seulement à l'impression.

Excusez moi pour le code, qui n'est probablement pas le plus "pur"

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
33
34
35
36
37
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
 
X = Me.[MonChampDe0a100].Value
 
' Couleurs foncées : le texte en blanc
If X >= 0 And X < 26 Then
 
Me.[MonChampDe0a100].BackColor = RGB(255, Int((X * 255 / 49)), 0)
Me.[MonChampDe0a100].ForeColor = RGB(255, 255, 255)
 
End If
 
' Couleurs claires: le texte en noir
If X >= 26 And X < 50 Then
 
Me.[MonChampDe0a100].BackColor = RGB(255, Int((X * 255 / 49)), 0)
Me.[MonChampDe0a100].ForeColor = RGB(0, 0, 0)
 
End If
 
' Couleurs claires: le texte en noir
If X > 49 And X < 85 Then
 
Me.[MonChampDe0a100].BackColor = RGB(Int(-5.1 * X + 510), Int(-1.9 * X + 350), 0)
Me.[MonChampDe0a100].ForeColor = RGB(0, 0, 0)
 
End If
 
' Couleurs foncées: le texte en blanc
If X > 84 And X <= 100 Then
 
Me.[MonChampDe0a100].BackColor = RGB(Int(-5.1 * X + 510), Int(-1.9 * X + 350), 0)
Me.[MonChampDe0a100].ForeColor = RGB(255, 255, 255)
 
End If
 
End Sub

Merci à vous

[User]

Oui, pour un état il y a cette possibilité, mais comme dans votre titre vous parliez de mise en forme conditionnelle cela pouvait prêter à confusion.