Indirection

Bonjours!
Je viens de me mettre au VBA et je coince sur un petit problème d'indirection.
Voila ce que j'aimerais faire:

Code:

---

1 2 3 4 5 6 7 8 9 10

Bascule1.Caption = slots.Fields(1) slots.MoveNext Bascule2.Caption = slots.Fields(2) slots.MoveNext Bascule3.Caption = slots.Fields(3) slots.MoveNext Bascule4.Caption = slots.Fields(4) slots.MoveNext ...

---

J'ai donc pensé utilisé une petite boucle "for/next" comme ceci:

Code:

---

1 2 3 4 5

For x = 1 To 36 Bascule{x}.Caption = slots.Fields(x) slots.MoveNext Next

---

Ca marche pas...

Code:

---

1 2 3 4 5 6

For x = 1 To 36 y = "Bascule" & x y.Caption = slots.Fields(x) slots.MoveNext Next

---

Et ca non plus.

J'ai essayé plein d'autre truc loufoque, et impossible de faire fonctionner ce foutu code. Après mainte recherches infructueuses sur le net, je n'arrive toujours pas à trouver la solution.
Je remercie d'avance la bonne ame qui saurait me tirer de ce mauvais pas... (En plus je suis sur que c'est en fait un truc tout con à faire... ca m'énerve...)

Essayer

Code:

---

1 2 3 4 5

For x = 1 To 36 Me("Bascule" & cstr(x)).Caption = slots.Fields(x) slots.MoveNext Next

---

sinon Forms("NomFormulaire")("Bascule" & cstr(x)).Caption

Ca marche nickel! merci!!!!