Changer valeurs TextBox Vba Excel

Résolu/Fermé
stef.roos Messages postés 73 Date d'inscription vendredi 21 mars 2008 Statut Membre Dernière intervention 20 décembre 2012 - 11 juil. 2010 à 14:54
stef.roos Messages postés 73 Date d'inscription vendredi 21 mars 2008 Statut Membre Dernière intervention 20 décembre 2012 - 11 juil. 2010 à 19:52
Bonjour,

J'ai un formulaire excel 2003 sur lequel j'ai créé 30 TextBox n'ayant pas tous le même nom.
Je voudrais pouvoir effacer la valeur de mes TextBox par un simple clic sur un bouton.
Pour le moment le seul moyen que j'ai trouvé c'est attribuer la valeur vide à chaque TextBox ce qui me fait un long code.
Je cherche donc une boucle ou autre qui pourrait alléger code.
Merci
A voir également:

1 réponse

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
11 juil. 2010 à 19:15
Ajoute un bouton sur le formulaire :

Private Sub CommandButton1_Click()

Dim Ctr As Control

For Each Ctr In Me.Controls
 If TypeOf Ctr Is MSforms.TextBox Then
  Ctr.Value = vbNullString
 End If
Next

End Sub
0
stef.roos Messages postés 73 Date d'inscription vendredi 21 mars 2008 Statut Membre Dernière intervention 20 décembre 2012 1
11 juil. 2010 à 19:52
Merci c'est parfaitement ce que je voulais.

Merci merci merci
0