simplifier un code

[Seb]

Bonjour, dans une macro j'utilise :
(Cel = les coordonnées d'une cellule.)
Load UserForm1
UserForm1.TextBox1.Value = Cel.Offset(0, -1).Value
UserForm1.TextBox2.Value = Cel.Offset(0, 0).Value
UserForm1.TextBox3.Value = Cel.Offset(0, 1).Value
UserForm1.TextBox2.Value = Cel.Offset(0, 2).Value
UserForm1.TextBox3.Value = Cel.Offset(0, 3).Value
UserForm1.Show
Mais au total, j'ai 11 TextBox et c'est un peu long...
Est-ce qu'il est possible de rétrécir ce code, pour arriver à quelquechose qui pourrait peut-être ressemblait à ça :
i = 1
Do While i < 11
UserForm1.("TextBox" & i).Value = Cel.Offset(0 , -2 + i).Value
i = i +1
Loop
UserForm1.Show...
Mais le problème c'est que UserForm1.("TextBox" & i) ne fonctionne pas...
Je ne pense pas qu'il y ait une solution mais si quelqu'un peut m'aider, et bien merci et bravo...

 

[Baroude]

Hello le forum !

Essaye ça, Seb :

For i = 1 To 11
UserForm1.Controls("TextBox" & i).Value = Cel.Offset(0 , -2 + i).Value
Next i

Chez moi, ça fonctionne
Bonne journée
Baroude

 

[Seb]

Merci !! C'est parfait, superbe !!