boucle i=1 to 10 ....

Le
magic-dd
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #25823532
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
---------------------------------------------------------------
isabelle
Le #25823592
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

isabelle
Le #25823582
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

Publicité
Poster une réponse
Anonyme