pb de textbox pullulantes

[fifi]

Bonsoir le forum,

encore un mini pb pour fifi :s

après avoir passé ma soirée d'hier à créer des textbox dans un méga useform
j'essaye maintenant de récuperer leur valeurs pour les mettre dans une feuille excel...je sais faire mais il y en a trop :/
il y a possibilité de faire des boucles pour remplacer le code suivant?

Y = 13
Sheets("animaux").Cells(I, Y) = animal_date_vac1.Value
Y = Y + 1
Sheets("animaux").Cells(I, Y) = animal_date_vac2.Value
Y = Y + 1
Sheets("animaux").Cells(I, Y) = animal_date_vac3.Value
Y = Y + 1
Sheets("animaux").Cells(I, Y) = animal_date_vac4.Value
Y = Y + 1
Sheets("animaux").Cells(I, Y) = animal_date_vac5.Value
Y = Y + 1
Sheets("animaux").Cells(I, Y) = animal_date_vac6.Value
Y = Y + 1
Sheets("animaux").Cells(I, Y) = animal_date_vac7.Value
Y = Y + 1
Sheets("animaux").Cells(I, Y) = animal_date_vac8.Value
Y = Y + 1
Sheets("animaux").Cells(I, Y) = animal_date_vac9.Value
Y = Y + 1
Sheets("animaux").Cells(I, Y) = animal_date_vac10.Value
Y = Y + 1
Sheets("animaux").Cells(I, Y) = animal_date_vac11.Value
Y = Y + 1
Sheets("animaux").Cells(I, Y) = animal_date_vac12.Value

Ceci n'est que la partie visible de l'iceberg...
et euh j'espère que ca va pas poser de problème de lenteur lors de l'écriture de 300 textbox 🙁

 

[fifi]

Re : pb de textbox pullulantes

ok je viens de trouver par hasard et sans le vouloir la réponse :/

ca a du bon de lire le forum en patientant.


à adapter :

For i = 1 To 30
Controls("textbox" & i) = Cells(ComboBox1.ListIndex + 3, i)
Next i