boucle en VBA

[Marvin.R]

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

[Heureux-oli]

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.