TextBox

[Han]

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]

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]

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

A bientôt.