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 !!!!
Merci de vos info
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
Partager