Discussion :

[Liloo14]

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

[patricktoulon]

bonjour
a tu un message d'erreur?

[Liloo14]

Non Patrick, je n'ai aucun message d'erreur.
Mon code te parrait bon si je comprend bien ?

[patricktoulon]

oui
essai avec "vbred"a la place de ton chiffre au format hex pour la couleur

[Liloo14]

J'ai trouvé pourquoi.
C'est paske avant d'appliquer ce code j'en ai un autre qui enabled les textBox.
Visiblement les deux ne s'entendent pas -))
Par contre je devrait pouvoir y arriver en désactivant APRES le changement dee couleur.
Merci pour ton aide

[patricktoulon]

A ben forcement
si le nabled est a false pour le textbox il est inaccesible

Au plaisir