Userform CLEAR ALL content
bonjour,
j'ai créé un bouton CLEAR dans mon userform pour le vider complètement de son contenu.
voilà ce que ça donne:
Private Sub CommandButton2_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox17.Value = ""
tout marche, mais c'est très rébarbatif à saisir comme code.
est ce qu'il existe un code plus simple pour arriver au même résultats???
Slt, Line31
Sans être sûr je te proposerai quelque chose du style :
Private Sub CommandButton2_Click()
For i = 1 to 50 (si tu as 50 textbox)
Textbox & i = ""
next i
End sub
50 est un exemple tu n'as qu'à mettre le nombre de Texbox présent.
Cordialement,
Kris
Bonjour,
Hum... Sans fichier c'est pas facile de voir mais bon essaie ceci :
Private Sub CommandButton1_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = ""
Next
End SubAmicalement
Merci , Dan et Chris de votre aide!
La solution de Dan s'adapte parfaitement à mon cas.
a bientôt,
Line 31