Boucle avec zone de texte

Fermé
Buldo - 13 mai 2007 à 16:50
 Papou - 13 mai 2007 à 20:19
Bonjour,
Sous Excel dans un formulaire, j'ai plusieurs zones de texte (zone1,zone2,zone3), dans une boucle comment remplacer les chiffres par un compteur ex:
While cpt_nb > 0
rep = Zone1.Value à remplacer par du genre Zone(cpt)
MsgBox rep
cpt_nb = cpt_nb - 1
cpt = cpt + 1
Wend
Merci
cordialement

1 réponse

Bonjour Buldo,

Modifie ton code comme suit :

Dim Rep as string 
cpt=1
While cpt_nb > 0 
Rep="TextBox" & cstr(cpt)
MsgBox Rep.value
cpt_nb = cpt_nb - 1 
cpt = cpt + 1 
Wend


J'espère que cela répond à ta question.

Cordialement

Papou
0