Changer valeurs TextBox Vba Excel Résolu

Question

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

Patrice33740 · Answer

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

Changer valeurs TextBox Vba Excel

1 réponse

Discussions similaires

Newsletters