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