Bonjour à tous,
Voilà mon soucis.
Avec ce code je compare les données entre une liste de TextBox et une liste de Label.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
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("Label" & 245 + c) = "X"
  Else
  End If
 Next c
End Sub
Dans chaque TextBox l'utilisateur saisie un résultat et lorsqu'il valide, les label apparaissent avec le bon résultat dedans.
Donc, chaque TextBox est associée à un Label.
Si la valeur saisie dans la TextBox est la même que dans le Label associé, donc le bon résultat, les valeur s'écrivent normalement.
A l'inverse, un croix apparait dans le label correspondant qui devrait contenir le résultat.
J'aimerais que cette croix s'affiche en rouge.
Quelqu'un pourrait-il me donner une piste car je ne sais pas comment faire.

Variante de mon problème : si à la place de la croix je laissais apparaitre le résultat mais en le barrant d'un trait ce serait encore mieux. Il me semble que c'est en utilisant la fonction "Strikethrough" un peu comme pour barrer du texte dans une cellule de feuille excel mais je suis loin d'en être sur et je patauge complètement.
Merci par avance à ceux qui se pencheront sur mon problème.
Laurent