assistance pour une boucle

[Phil39]

Bonjour,

J'ai conçu un formulaire de saisie contenant 50 champs texte que l'utilisateur doit remplir avec des valeurs numériques (un inventaire en fait).
Je cherche a renvoyer ces valeurs dans un tableau excel en optimisant mon code par une boucle m'évitant de saisir 50 lignes.

L'idée étant ensuite de sauvegarder ces valeurs et de les reinjecter dans le formulaire à la prochaine ouverture.

Cordialement,

 

[Guest]

Re : assistance pour une boucle

Bonjour,
Exemple avec des textbox nommés TextBox1 à TextBox50:

Dim i as integer
For i = 1 to 50
    Cells(i,1) = ME.Controls("TextBox" & i)
Next i

Affichage du résultat dans la feuille active en colonne 1 (A) ligne 1 à 50

Pour plus de précisions, joindre un exemple( sur ce forum).

A+

 

[Phil39]

Re : assistance pour une boucle

Merci beaucoup