Discussion :

[NewbiePower]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ca marche pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...)

[helas]

Essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NewbiePower]

Ca marche nickel! merci!!!!