Couleur dans formulaire en feuille de données ou Formulaires continus

**herve250wrf** · 19/01/2013, 16h46

Bonjour,
je reviens vers vous pour trouver comment colorier le fond d'un formulaire en fonction d'un code couleur.
Voici mon code qui ne marche pas !!!!

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
Private Sub Form_Current()
Dim x As Long
x = [Couleur]
'MsgBox (x)
If x = 0 Then
    Me.Détail.BackColor = 16777215
Else
        If x = 94 Then
            Me.Détail.BackColor = [Couleur]
            Me.Couleur.ForeColor = 16777215
            Me.txt.ForeColor = 16777215
        Else
            If x = 3342438 Then
                Me.Détail.BackColor = [Couleur]
                Me.Couleur.ForeColor = 16777215
                Me.txt.ForeColor = 16777215
            Else
                If x = 8388608 Then
                    Me.Détail.BackColor = [Couleur]
                    Me.Couleur.ForeColor = 16777215
                    Me.txt.ForeColor = 16777215
                Else
                    If x = 16711680 Then
                        Me.Détail.BackColor = [Couleur]
                        Me.Couleur.ForeColor = 16777215
                        Me.txt.ForeColor = 16777215
                    Else
                        If x = 13056 Then
                            Me.Détail.BackColor = [Couleur]
                            Me.Couleur.ForeColor = 16777215
                            Me.txt.ForeColor = 16777215
                        Else
                            If x = 128 Then
                                Me.Détail.BackColor = [Couleur]
                                Me.Couleur.ForeColor = 16777215
                                Me.txt.ForeColor = 16777215
                            Else
                                Me.Détail.BackColor = [Couleur]
                                Me.Couleur.ForeColor = 0
                                Me.txt.ForeColor = 0
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End Sub

Merci de vos info

**ClaudeLELOUP** · 19/01/2013, 18h28

Bonjour,

1° Je suppose que tu as vérifé que [couleur] contient bien une des valeurs que tu utilises ;

2° comme ton code est fait, tous les enregistrements de ton formulaire continu auront la couleur qui correspond à la valeur de l'enregistrement actif.

**herve250wrf** · 19/01/2013, 19h05

Bonsoir,
En effet mon code est bien actif sur la valeur active mais je cherche à avoir chaque ligne du formulaire de la couleur de mon champs [couleur ]
Le champ [Couleur] a bien une valeur correcte. Je l'utilise dans un état et cela fonctionne. J’ai certainement mal positionné mon code vba sur les états. Je le pose sur "à l'impression"
Merci pour la réponse
Bien cordialement

Invité · 19/01/2013, 19h56

Bonjour

Ce type de code ne fonctionne pas vraiment sur un formulaire, contrairement aux états.

Pour gérer les couleurs il y a la mise en forme conditionnelle, mais vu ta version et le nombre de couleurs il y a cela : La Mise en Forme Conditionnelle Illimitée sous Access

Philippe

**ClaudeLELOUP** · 19/01/2013, 21h09

Bonsoir Hervé et Philippe,

Peut-être aussi une piste dans l’exemple en annexe.
Je me sers de cette contribution de Arkham46 qui permet d’afficher une image différente par enregistrement dans un formulaire continu.

C’est une image en dessous du contrôle qui lui donnerait la couleur souhaitée.

Pour tester, tu dois placer les images couleur.bmp dans un sous-répertoire « Images » placé dans le répertoire qui contient la db.

P.-S. Philippe, un souci avec les images de ton tuto.

**herve250wrf** · 24/01/2013, 08h39

Bonjour,
merci pour cette réponse cela fonctionne en formulaire continu mais sur une feuille de donner pas possible je vais tester la fonction pour la mise en forme conditionner infinie
bien cordialement