boucle en VBA

Bonsoir,

J'ai plusieurs zones de saisis (textBox) dans ma userForm. J'aimerai boucler sur chacun d'eux.

for i = 1 to 50

Je leur ai donné à chacun le même nom suivi d'un chiffre pour les différencier : textBox1 à textBox50

Ce que je ne sais pas comment faire, c'est selectionner la 1ère textBox à la 1ère boucle, puis la 2nd textBox à la 2nd boucle...

J'ai essayé

for i = 1 to 50
textBox(i) ...

mais ça ne fonctionne pas

Salut,

Je pense que boucler sur les controles serait plus simple.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CommandButton1_Click() 'Déclaration d'une variable control Dim myCtr As Control   'Boucle sur les controles du UserForm For Each myCtr In Me.Controls Debug.Print myCtr.Name 'Test sur le nom du controle If Left(myCtr.Name, 4) = "Text" Then MsgBox myCtr End If     Next myCtr   End Sub

---

Si tu souhaites quand même ta boucle avec un entier, il faut adresser le contrôle autrement.

Code:

---

1 2 3 4 5

Dim intI as Integer   For inti = 1 To 50 MsgBox Me.Controls("TextBox" & inti) Next inti

---

A toi de voir.