initialisation des plusieurs textbox ou combox dans un meme userform.

[bruno]

bonsoir a tous
Peut on dans un userform qui contient plusieurs textbox et combox, les remettre a zero par une commande simple.
actuellement j'effectue la RAZ en ecrivant chaque ligne du genre texbox1.value=O , ETC..........
peut on faire autrement.
A+
merci d'avance

 

[@+Thierry]

Salut Bruno

Oui c'est simple il faut faire une boucle toute simple comme ceci :

Private Sub CommandButton1_Click()
Dim Toto As Control
For Each Toto In Controls
If Left(Toto.Name, 4) = "Text" Then
Toto.Value = ""
End If
Next
End Sub

BUT !!! et oui il y a un MAIS ... il faut que toutes tes TextBox se nomment bien TextBox1, TextBox2, TextBox3, TextBox4, etc...

Alors Ti a trouvé la parade en utilisant la propriété "Tag" .... ET çà donne çà.... Il est évident que c'est plus fiable :

Private Sub CommandButton1_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If Ctrl.Tag = "Texte" Then
Ctrl.Value = ""
End If
Next Ctrl
End Sub

si tu veux suivre le Fil-de-Discussion...

Voilà par contre tu as écrit "texbox1.value=O", pour une vraie RAZ il vaut mieux TexBox1.value = "", car sinon...

Bon, ben, je pense que tu as ta réponse "pile/poil"...

Bonne Nuit
@+Thierry