TextBox

Han · 9 Janvier 2004

Bonjour,

Voilà, je suis un peu bloqué:

If Box1.Text = "ERROR" Then
Box1.BackColor = RGB(255, 0, 0)

If Box2.Text = "ERROR" Then
Box2.BackColor = RGB(255, 0, 0)

etc .. avec Box3 Box4 ....

Est-il possible de déclarer les noms de mes TextBox Dans un tableau pour
réduire les lignes du code?

Merci

michel · 9 Janvier 2004

bonsoir Han

tu peux tester la procedure ci dessous . j'ai interpreté qu'il s'agissait de textboxs dans un userform ...

Option Compare Text
Private Sub CommandButton1_Click()
Dim Ctrl As Control
For Each Ctrl In UserForm1.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
If Ctrl = "ERROR" Then Ctrl.BackColor = RGB(255, 0, 0)
End If
Next Ctrl
End Sub

bonne soirée
michel

Han · 12 Janvier 2004

Merci infiniment Michel. Ta procédure marche bien et ça m'a beaucoup aidé.

A bientôt.

TextBox

Han

Guest

michel

Guest

Han

Guest

Discussions similaires