Bonjour,

A l'affichage d'un formulaire, je souhaite modifier la couleur des controles en fonction de leur valeur :
si le controle = 2, alors couleur texte (Forecolor) = rouge

J'ai essayé ce 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
 
Dim ctl As Control
 
For Each ctl In Me.Controls
 
    If ctl.Value = 0 Then
        ctl.ForeColor = 8454016
    End If
 
    If ctl.Value = 1 Then
        ctl.ForeColor = 4227327
    End If
 
    If ctl.Value = 2 Then
        ctl.ForeColor = 255
    End If
 
    If ctl.Value = "x" Then
        ctl.ForeColor = 16744448
    End If
 
Next ctl
Mais cela m'affiche dans chaque controle : #Supprimé

Merci de votre aide.