boucle avec zone de texte

Question

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

Papou · Answer

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

Boucle avec zone de texte

1 réponse

Discussions similaires

Newsletters