boucle i=1 to 10 ....

Bonjour,

As-tu essayé comme ceci :

J'ai supposé que tes textbox étaient dans un formulaire.

'----------------------------
Dim Elt As Variant
For each Elt in Array(3,6,11)
With Me.Controls("Textbox" & elt)
'le code

End with
Next
'----------------------------

MichD
---------------------------------------------------------------

bonjour,

tb = Array(3, 6, 11)
For i = 0 To 2
Me.Controls ("TextBox" & tb(i))
Next

le premier item d'un Array est 0 par défaut à moins d'avoir
spécifier Option base 1 en début de module ce qui attribue la valeur 1
au premier item

isabelle

Le 2013-11-27 16:23, magic-dd a écrit :

Bonsoir,
je souhaite boucler sur les textbox 3, 6 et 11

seulement ma syntaxe suivante ne marche pas

For a = 3 , 6 , 11

suite du code

merci de votre aide

une autre méthode pour la boucle sans badrer avec Option base 0 ou 1

tb = Array(3, 6, 11)
For i = LBound(tb) To UBound(tb)
With Me.Controls("Textbox" & i)

End With
Next

isabelle

Le 2013-11-27 18:26, isabelle a écrit :

bonjour,

tb = Array(3, 6, 11)
For i = 0 To 2
Me.Controls ("TextBox" & tb(i))
Next

le premier item d'un Array est 0 par défaut à moins d'avoir
spécifier Option base 1 en début de module ce qui attribue la valeur 1
au premier item

isabelle

Le 2013-11-27 16:23, magic-dd a écrit :

Bonsoir,
je souhaite boucler sur les textbox 3, 6 et 11

seulement ma syntaxe suivante ne marche pas

For a = 3 , 6 , 11

suite du code

merci de votre aide