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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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