une petite boucle qui contient une erreur que je n'arrive pas à cerner

[ToniConti]

Bon soir à tous,

Ça fait un moment maintenant que je démène pour trouver l'erreur mais rien n'y fait !

Voici ma boucle :

For i = 1 To 6
Me.Controls("var" & i) = Me.Controls("textbox" & i)
Next i

Suivie de ce que je veux faire :

var1 = TextBox1
var2 = TextBox2
var3 = TextBox3
var4 = TextBox4
var5 = TextBox5
var6 = TextBox6

Voilà si quelqu'un à une petite suggestion à me faire... Merci d'avance

 

[Compte Supprimé 979]

Re : une petite boucle qui contient une erreur que je n'arrive pas à cerner

Salut ToniConti,

Et comme cela :

For i = 1 To 6
  Me.Controls("var" & i).Value = Me.Controls("textbox" & i).Value
Next i

Si tu as des controles nommés : var1, var2, etc ... !?

A+

 

[ToniConti]

Re : une petite boucle qui contient une erreur que je n'arrive pas à cerner

Merci pour ta réponse

Malheureusement ca ne fonctionne pas non plus...
Comme je manque de temps, je vais en rester à la version longue qui fontionne c'est dommage mais malheureusement, je suis pris par le temps !

Bonne journée

 

[pierrejean]

Re : une petite boucle qui contient une erreur que je n'arrive pas à cerner

Bonjour ToniConti

Salut Bruno

A tester:

Dim var(1 to 6) As String
For i = 1 To 6
 var(i) = Me.Controls("textbox" & i)
Next i

pour l'utilisation syntaxe : var(1), var(2) .......