Boucle avec des textbox

[Vin100]

Bonjour à tous !

Voilà : je découvre petit à petit la programmation avec Excel, et je me pose une question :

Comment écrire une boucle avec des textbox ?

J'explique : j'ai un userform avec 20 textbox, et je veux mettre les valeurs de ces 20 textbox dans les cellules A1 -> A20

Bien sûr, je peux écrire :

Cells(1,1)=Textbox1.Value
Cells(2,1)=Textbox2.Value
...
Cells(20,1)=Textbox20.Value

Mais peux-t-on faire une boucle du genre :

for i=1 to 20 then
Cells(i,1)=??? (du genre textbox"i") ???


Merci beaucoup !

 

[@+Thierry]

Bonjour Vin, le Forum

Oui ce n'est pas compliqué, et je le propose souvent dans mes démos...

En fait tu n'étais pas si loin que çà...

Private Sub CommandButton1_Click()
Dim i As Byte

 For i = 1 To 6
  Cells(i, 1) = Controls("TextBox" & i)
 Next

End Sub

On peut évidemment gérer aussi un décallage pour les cellules et éventuellement même deux colonnes comme ceci (les 10 premières TextBox iront en "A", les 10 suivante iront en "B")

Private Sub CommandButton1_Click()
Dim i As Byte, C As Byte, L As Integer

 For i = 1 To 20
&nbsp;&nbsp;C = IIf(i < 11, 1, 2)
&nbsp;&nbsp;L = IIf(i < 11, 0, -10)
&nbsp;&nbsp;&nbsp;Cells(i + L, C) = Controls("TextBox" & i)
&nbsp;Next

End Sub

Bonne Soirée
@+Thierry

 

[Vin100]

Merci beaucoup pour la qualité et la rapidité de la réponse !

(il faudra que je regarde de plus près la fonction IIf...)