vider toutes les texboxs si combo_change ?

[avoriaz]

bonjour, le forum

je me posé la question, sur un userform, avec
textbox 1, textbox2, textbox3 jusque n textbox

je voulais vider les 30 textboxs d'un coup si je change le parametre d'un combo.

ceci pour réinitialiser la page et vider les valeurs des textboxs

private sub combo1_change ()
textbox1=''
textbox2=''
textbox3=''
.....
textbox30=''
end sub

je voulais eviter de taper , chaque textbox =''
si il y a 100 textbox :unsure:

forcer la couleur de toutes les textbox de fond ( car je joue avec les couleurs backolors en fonction de leur valeur)

de textbox1 a textbox100 .backolors=&0000000FF&
merci pour votre aide

Message édité par: avoriaz, à: 19/02/2006 15:21

 

[Manu13]

Bonjour Avoriaz et le Forum

tu peux essayer ceci

Dim i As Control
For Each i In Controls
If TypeOf i Is MSForms.TextBox Then
i = ''
End If
Next i

Manu

 

[avoriaz]

merci pour ta reponse, ca fonctionne..

si je veux ajouter

si je dis j'efface tous les textbox sauf la 29

avoriaz

 

[Manu13]

salut avoriaz

ce code est fait pour effacer toutes les textboxs

dans ce cas là essaye plutôt ceci

Dim x As Byte
For x = 1 To 28
Me.Controls('TextBox' & x) = ''
Next

j'esoère que correspond à ta demande

bonne soirée
Manu

 

[avoriaz]

merci manu pour ton aide,
impeccable

avoriaz