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
Mais cela m'affiche dans chaque controle : #Supprimé
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
Merci de votre aide.
Partager