Application d'une regle conditionnelle à une textbox
Re bonjour à tous.
un petit probleme que je ne m'explique pas.
Dans le code suivant je dis que si le contenu des label de 246 à 306 sont différent des TextBox de 1 à 60 , alors j'applique des événements, sinon j'en applique d'autres.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Sub BonsRésultats()
Dim c As Long
For c = 1 To 60
If ExerciceAléatoire.Controls("Label" & 245 + c) <> ExerciceAléatoire.Controls("TextBox" & c) Then
ExerciceAléatoire.Controls("TextBox" & c).Font.Strikethrough = True
ExerciceAléatoire.Controls("Label" & 245 + c).ForeColor = &HFF&
Else
ExerciceAléatoire.Controls("Label" & 245 + c).ForeColor = &HFF0000
ExerciceAléatoire.Controls("TextBox" & c).ForeColor = &HFF0000
End If
Next c
End Sub |
La ligne
Code:
ExerciceAléatoire.Controls("Label" & 245 + c).ForeColor = &HFF0000
fait bien passer le texte des labels en rouge si la condition est réunis.
Mais, la ligne
Code:
ExerciceAléatoire.Controls("TextBox" & c).ForeColor = &HFF0000
ne passe pas le texte des textbox en rouge et je ne comprend pas pourquoi.
Quelqu'un voit-il ce que je ne vois pas ?
Merci par avance.
Laurent
