Hello,
Je voudrais rendre le bout le code suivant plus élégant et bute sur la syntaxe à adopter.
Voici un exemple réduit à sa plus simple expression :
1/ L'utilisateur se voit proposé un UserForm
2/ Il remplit des TextBox dont les noms sont var1, var2, ... var50
3/ Je copie ces données dans les cellules A1, A2, ... A50
NB : je n'utilise pas un tableau ; chaque string (ex. : "var1" ) correspond à un TextBox de mon User Form
Ce code rudimentaire fonctionne :
Code :
- Range("A1" ).Value = var1
- Range("A2" ).Value = var2
- ...
- Range("A50" ).Value = var50
|
Seulement voilà, ce n'est pas très classieux
Je voudrais donc utiliser une boucle.
J'avais pensé à cela :
Code :
- Do While i <= 50
- Cells(1, i) = "var" & i
- i = i + 1
- Loop
|
Le problème, c'est que A1 = var1 ; A2 = var 2, etc. Je voudrais, vous l'avez compris, A1 = [valeur stockée dans A1], tout simplement !
Quelqu'un peut-il m'éclairer sur la syntaxe s'il vous plaît ?
Question subsidiaire : la solution 2 sera-t-elle plus rapide à être exécutée ? Comment pourrais-je le déterminer par moi-même ?
(cela pourrait me servir pour d'autres pans de mon code)
Merci pour votre aide
Anthony