[AC-2007] couleur de fond [Résolu]

hugodu28 · 19/12/2010, 13h55

bonjour,
suite à la discussion "mise en forme conditionnelle",
je suis bloqué avec les couleur de fond; je m'explique

j'ai yellow;red;blue;green pour qui ça fonctionne.
j'ai essayé avec orange;purple;brown ça ne fonctionne pas.

Connaissez vous d'autres couleurs qui fonctionnent?

Sinon on peu leur attribuer une valeur numérique
Existe-t-il un "dictionnaire"?

Merci et bonnes fêtes de fin d'année.

LedZeppII · 19/12/2010, 16h04

Bonjour,

Citation:

Envoyé par hugodu28

j'ai yellow;red;blue;green pour qui ça fonctionne.

Ça ne serait pas plutôt vbYellow, vbRed, vbBlue, vbGreen ?
Si c'est ça, VBA ne définit que 8 constantes de couleur.

Pour les autres couleurs, utiliser la fonction RGB.
Comment déterminer un code couleur quelconque dans Access ?

Tu trouvera ici des échantillons de couleurs avec les correspondances RGB.
Par exemple, pour la couleur Orchid, RGB=DA70D6.
La fonction RGB me permet de retrouver le code (entier long) de la couleur.

Code :

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

1
2
Dim lCouleurOrchid as Long
lCouleurOrchid = RGB(&HDA, &H70, &HD6)

A+

hugodu28 · 19/12/2010, 18h01

Merci pour la réponce .
Est il possible de faire un remplissage bi-colore?
exemple séparation de la case en diagonale et partie supérieur jaune; partie inférieur vert

Sinon quelle est la commande pour :
couleur bordure
épaisseur borbure

couleur texte

LedZeppII · 19/12/2010, 18h50

Bonsoir,

Citation:

Envoyé par hugodu28

Est il possible de faire un remplissage bi-colore?
exemple séparation de la case en diagonale et partie supérieur jaune; partie inférieur vert

A ma connaissance ça n'est pas possible.

Citation:

Envoyé par hugodu28

Sinon quelle est la commande pour :
couleur bordure
épaisseur borbure
couleur texte

couleur bordure

BorderColor
épaisseur borbure

BorderWidth (1 à 6)
couleur texte

ForeColor

Exemple avec zone de texte :

Code :

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

1
2
3
Me.txtIdClient.ForeColor = 1643706
Me.txtIdClient.BorderColor = 16104335
Me.txtIdClient.BorderWidth = 2

A+

hugodu28 · 19/12/2010, 19h54

quand je rentre mon code

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
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
Dim j As Integer, Color As Long, DateJ As Date, lCouleurOrchid As Long, lCouleurOrange As Long
 
 
DateJ = DateSerial(Forms!F_Planning!An, Forms!F_Planning!Mois, 1)
 
For j = 1 To 31
 
     If Me("Jour" & j).Value = "G" Or Me("Jour" & j).Value = "J" Or Me("Jour" & j).Value = "N" Then
 
        Me("Jour" & j).BackColor = vbYellow
 
     ElseIf Me("Jour" & j).Value = "DG" Or Me("Jour" & j).Value = "DJ" Or Me("Jour" & j).Value = "DN" Then
 
        Me("Jour" & j).BackColor = vbRed
      ElseIf Me("Jour" & j).Value = "AM" Or Me("Jour" & j).Value = "AT" Or Me("Jour" & j).Value = "D" Then
 
        Me("Jour" & j).BackColor = vbBlue
        ElseIf Me("Jour" & j).Value = "F" Then
         Me("Jour" & j).BackColor = vbGreen
 
        ElseIf Me("Jour" & j).Value = "C" Then
        lCouleurOrchid = RGB(&HDA, &H70, &HD6)
        Me("Jour" & j).BackColor = lCouleurOrchid
 
         ElseIf Me("Jour" & j).Value = "GF" Then
        lCouleurOrange = RGB(&HFF, &HA5, &H0)
        Me("Jour" & j).ForeColor = vbGreen
        Me("Jour" & j).BackColor = lCouleurOrange
        Me("Jour" & j).BorderWidth = 2
        Me("Jour" & j).BorderColor = 16104335
     Else
 
      If EstWeekEnd(DateJ) Or EstFerie(DateJ) Then
 
         Me("Jour" & j).BackColor = 13428479

Quand j'arrive à une case "GF", les valeurs Forecolor;borderWith et bordercolor; sont conservées pour toutes les cases suivantes.
comment régler ce problème?
Faut-il que je définisse ces variable pour toutes mes conditions?

hugodu28 · 19/12/2010, 20h07

je viens de paramètrer ces valeurs pour toutes mes conditions et c'est bon.
Mon seul problème c'est que lorsque les cases suivantes sont vides ça conserve les paramètres.

Comment dit on
si case valeur vide alors....

comment dit on également
texte en gras
texte italique
texte souligné?
merci

User · 19/12/2010, 21h43

Bonjour Hugodu28 et LedZeppII,

Peux-tu poster ton code complet sur impression de la section détail,

Merci à toi

hugodu28 · 20/12/2010, 00h09

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
Dim j As Integer, Color As Long, DateJ As Date, lCouleurOrchid As Long, lCouleurOrange As Long
 
 
DateJ = DateSerial(Forms!F_Planning!An, Forms!F_Planning!Mois, 1)
 
For j = 1 To 31
 
     If Me("Jour" & j).Value = "G" Or Me("Jour" & j).Value = "J" Or Me("Jour" & j).Value = "N" Then
         Me("Jour" & j).BackColor = vbYellow
        Me("Jour" & j).ForeColor = vbBlack
        Me("Jour" & j).BorderWidth = 0
        Me("Jour" & j).BorderColor = vbBlack
 
     ElseIf Me("Jour" & j).Value = "DG" Or Me("Jour" & j).Value = "DJ" Or Me("Jour" & j).Value = "DN" Then
           Me("Jour" & j).ForeColor = vbBlack
           Me("Jour" & j).BackColor = vbRed
           Me("Jour" & j).BorderWidth = 0
           Me("Jour" & j).BorderColor = vbBlack
 
      ElseIf Me("Jour" & j).Value = "AM" Or Me("Jour" & j).Value = "AT" Or Me("Jour" & j).Value = "D" Then
        Me("Jour" & j).ForeColor = vbBlack
        Me("Jour" & j).BackColor = vbBlue
        Me("Jour" & j).BorderWidth = 0
        Me("Jour" & j).BorderColor = vbBlack
 
        ElseIf Me("Jour" & j).Value = "F" Then
         Me("Jour" & j).BackColor = vbGreen
         Me("Jour" & j).ForeColor = vbBlack
         Me("Jour" & j).BorderWidth = 0
         Me("Jour" & j).BorderColor = vbBlack
 
        ElseIf Me("Jour" & j).Value = "C" Then
        lCouleurOrchid = RGB(&HDA, &H70, &HD6)
        Me("Jour" & j).BackColor = lCouleurOrchid
        Me("Jour" & j).ForeColor = vbBlack
        Me("Jour" & j).BorderWidth = 0
        Me("Jour" & j).BorderColor = vbBlack
 
         ElseIf Me("Jour" & j).Value = "GF" Then
        lCouleurOrange = RGB(&HFF, &HA5, &H0)
        Me("Jour" & j).ForeColor = vbGreen
        Me("Jour" & j).BackColor = lCouleurOrange
        Me("Jour" & j).BorderWidth = 4
        Me("Jour" & j).BorderColor = vbRed
 
 
     Else
 
      If EstWeekEnd(DateJ) Or EstFerie(DateJ) Then
 
         Me("Jour" & j).BackColor = 13428479
 
      ElseIf EstConge(DateJ) Then
 
         Me("Jour" & j).BackColor = 12706047
 
      Else
 
         Me("Jour" & j).BackColor = vbWhite
 
      End If
 
   End If
 
DateJ = DateJ + 1
 
Next j
 
End Sub

User · 20/12/2010, 12h32

Salut,

Essaie ceci :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
Dim j As Integer, Color As Long, DateJ As Date, lCouleurOrchid As Long, lCouleurOrange As Long
 
 
DateJ = DateSerial(Forms!F_Planning!An, Forms!F_Planning!Mois, 1)
 
For j = 1 To 31
 
     If Me("Jour" & j).Value = "G" Or Me("Jour" & j).Value = "J" Or Me("Jour" & j).Value = "N" Then
         Me("Jour" & j).BackColor = vbYellow
        Me("Jour" & j).ForeColor = vbBlack
        Me("Jour" & j).BorderWidth = 1
        Me("Jour" & j).BorderColor = vbBlack
 
     ElseIf Me("Jour" & j).Value = "DG" Or Me("Jour" & j).Value = "DJ" Or Me("Jour" & j).Value = "DN" Then
           Me("Jour" & j).ForeColor = vbBlack
           Me("Jour" & j).BackColor = vbRed
           Me("Jour" & j).BorderWidth = 1
           Me("Jour" & j).BorderColor = vbBlack
 
      ElseIf Me("Jour" & j).Value = "AM" Or Me("Jour" & j).Value = "AT" Or Me("Jour" & j).Value = "D" Then
        Me("Jour" & j).ForeColor = vbBlack
        Me("Jour" & j).BackColor = vbBlue
        Me("Jour" & j).BorderWidth = 1
        Me("Jour" & j).BorderColor = vbBlack
 
      ElseIf Me("Jour" & j).Value = "F" Then
         Me("Jour" & j).BackColor = vbGreen
         Me("Jour" & j).ForeColor = vbBlack
         Me("Jour" & j).BorderWidth = 1
         Me("Jour" & j).BorderColor = vbBlack
 
      ElseIf Me("Jour" & j).Value = "C" Then
        lCouleurOrchid = RGB(&HDA, &H70, &HD6)
        Me("Jour" & j).BackColor = lCouleurOrchid
        Me("Jour" & j).ForeColor = vbBlack
        Me("Jour" & j).BorderWidth = 1
        Me("Jour" & j).BorderColor = vbBlack
 
     ElseIf Me("Jour" & j).Value = "GF" Then
        lCouleurOrange = RGB(&HFF, &HA5, &H0)
        Me("Jour" & j).ForeColor = vbGreen
        Me("Jour" & j).BackColor = lCouleurOrange
        Me("Jour" & j).BorderWidth = 4
        Me("Jour" & j).BorderColor = vbRed
 
 
     Else
 
      If EstWeekEnd(DateJ) Or EstFerie(DateJ) Then
 
         Me("Jour" & j).BackColor = 13428479
         Me("Jour" & j).ForeColor = vbBlack
         Me("Jour" & j).BorderWidth = 1
         Me("Jour" & j).BorderColor = vbBlack
 
      ElseIf EstConge(DateJ) Then
 
         Me("Jour" & j).BackColor = 12706047
         Me("Jour" & j).ForeColor = vbBlack
         Me("Jour" & j).BorderWidth = 1
         Me("Jour" & j).BorderColor = vbBlack          
 
      Else
 
         Me("Jour" & j).BackColor = vbWhite
         Me("Jour" & j).ForeColor = vbBlack
         Me("Jour" & j).BorderWidth = 1
         Me("Jour" & j).BorderColor = vbBlack         
 
      End If
 
   End If
 
DateJ = DateJ + 1
 
Next j
 
End Sub

A+

19/12/2010, 13h55	#1
hugodu28 Membre du Club hugues dupont Pompier Inscription : janvier 2010 Messages : 170 Détails du profil Informations personnelles : Nom : hugues dupont Localisation : France Informations professionnelles : Activité : Pompier Informations forums : Inscription : janvier 2010 Messages : 170 Points : 44 Points : 44	couleur de fond bonjour, suite à la discussion "mise en forme conditionnelle", je suis bloqué avec les couleur de fond; je m'explique j'ai yellow;red;blue;green pour qui ça fonctionne. j'ai essayé avec orange;purple;brown ça ne fonctionne pas. Connaissez vous d'autres couleurs qui fonctionnent? Sinon on peu leur attribuer une valeur numérique Existe-t-il un "dictionnaire"? Merci et bonnes fêtes de fin d'année.
	00

19/12/2010, 21h43	#7
User Rédacteur/Modérateur Denis Développeur informatique Inscription : août 2004 Messages : 3 204 Détails du profil Informations personnelles : Nom : Denis Âge : 42 Localisation : France Informations professionnelles : Activité : Développeur informatique Informations forums : Inscription : août 2004 Messages : 3 204 Points : 5 255 Points : 5 255	Bonjour Hugodu28 et LedZeppII, Peux-tu poster ton code complet sur impression de la section détail, Merci à toi __________________ Merci de ne pas poster sur mon profil pour des problèmes techniques. Pour celà vous pouvez utiliser le forum ou m'envoyer un mp. Bon développement ! Mes tutoriels et contributions sur ma page perso: Ma page personnelle
	00

19/12/2010, 18h01	#3
hugodu28 Membre du Club hugues dupont Pompier Inscription : janvier 2010 Messages : 170 Détails du profil Informations personnelles : Nom : hugues dupont Localisation : France Informations professionnelles : Activité : Pompier Informations forums : Inscription : janvier 2010 Messages : 170 Points : 44 Points : 44	Merci pour la réponce . Est il possible de faire un remplissage bi-colore? exemple séparation de la case en diagonale et partie supérieur jaune; partie inférieur vert Sinon quelle est la commande pour : couleur bordure épaisseur borbure couleur texte
	00

19/12/2010, 20h07	#6
hugodu28 Membre du Club hugues dupont Pompier Inscription : janvier 2010 Messages : 170 Détails du profil Informations personnelles : Nom : hugues dupont Localisation : France Informations professionnelles : Activité : Pompier Informations forums : Inscription : janvier 2010 Messages : 170 Points : 44 Points : 44	je viens de paramètrer ces valeurs pour toutes mes conditions et c'est bon. Mon seul problème c'est que lorsque les cases suivantes sont vides ça conserve les paramètres. Comment dit on si case valeur vide alors.... comment dit on également texte en gras texte italique texte souligné? merci
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email