Faire une boucle avec des text box

[Manue]

Bonjour à tous

Est ce que c'est possible de faire des boucles avec des text box?

Par exemple, j'ai
Trep1.text = tab (1)
Trep2.text = tab (2)
Trep3.text = tab (3)
Trep4.text = tab (4)
avec tab() un tableau

Je voudrais obtenir un truc du genre
For i=1 to 4
Trep(i).text=tab(i)
next i

Merci
Bonne soirée

 

[@+Thierry]

Salut Manue, le Forum

Pour débuter je te propose une petite démo spécialement faite pour boucler sur les TextBox :

=> La Démo à Télécharger : Lien supprimé (26k)

=> Le Fil de Discussion : Lien supprimé

Maintenant à la carte pour ton exemple, je procèderai comme ceci :

Private Sub UserForm_Initialize()
Dim i As Byte
Dim Tablo

Tablo = Range("A1:A4") ' juste pour remplir l'Array Tablo pour cet exemple
For i = 1 To 4
Me.Controls("TextBox" & i) = Tablo(i, 1)
Next i
End Sub

(Attention "Tab" est un mot réservé en VBA)

Bon Aprèm
@+Thierry