Boucle pour textbox

[Temjeh]

Bonjour à tous

Je bug sur ceci(mais j'y suis presque):

Dim Ctrl As Control
For Each Ctrl In Me.Controls
If Ctrl = 'x' Then
Ctrl.Interior.Color = RGB(0, 0, 0)
Else
Exit Sub
End If
Next

Pour tout les textbox ou il y a un x le fond devient noir

Merci beaucoup

Temjeh

 

[Temjeh]

Rebonjour
Aussi si possible

Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
'les vide
Ctrl = ''
'..ici les remet tous blanc
?
End If
Next

Merci

Temjeh

 

[Rai]

Salut

Essaie BackColor à la palce d'Interior.Color

Ctrl.BackColor= RGB(0,0,0)

Bonne fin de semaine

 

[Temjeh]

Merci ray

Pour tout en blanc:

Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
Ctrl = ''
Ctrl.BackColor = RGB(255, 255, 255)
End If
Next

c'est parfait

il me manque juste avec le x en noir

A+

Temjeh

 

[Temjeh]

Merci j,ai le tout

Temjeh