Changer valeurs TextBox Vba Excel

Résolu
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   -  
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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   Statut Membre Dernière intervention   1
 
Merci c'est parfaitement ce que je voulais.

Merci merci merci
0