Syntaxe TextBox(n) possible ?

[Thesa]

Bonjour à tous !

J'aimerai savoir si il est possible d'afficher du texte dans un TextBox indiqué par une variable ?

Par exemple :

j'ai 4 TextBox
soit :
TextBox1
TextBox2
TextBox3
TextBox4

j'aimerai optimiser la fonction écrire un message dans tel ou tel TextBox un peu comme ce code (pas fonctionnel évidemment !) :


Dim i as Variant
Dim d(1 to 4) as string

For i = 1 To 4
d(i) = Mid("ABCDE", i, 1)
TextBox(i).Text = d(i) <<<<< voilà, i et l'indicateur de position TextBox
Next i

est ce qu'il est possible de choisir un n° de TextBox par un indicateur ?
Quele est cette syntaxe svp ?


ou faut t-il se cantonner à :

Dim i as Variant
Dim d(1 to 4) as string

For i = 1 To 4
d(i) = Mid("ABCDE", i, 1)
if i=1 TextBox1.Text = d(i)
if i=2 TextBox2.Text = d(i)
if i=3 TextBox3.Text = d(i)
if i=4 TextBox4.Text = d(i)
Next i

Merci pour vos réponse !

 

[zon]

Bonjour à tous,


tu peux utiliser cette syntaxe, userform1 est à remplacer par le nom de ton USF.


Dim i as byte 'c'est mieux que Variant
Dim d(1 to 4) as string

For i = 1 To 4
d(i) = Mid("ABCDE", i, 1)
userform1.controls("TextBox" & i) = d(i) <<<<< voilà, i et l'indicateur de position TextBox
Next i


A+++

 

[Thesa]

Milles mercis !!!!!!!
exactement ce que je cherchais !!!!

saurais tu où cette façon d'écrire un appel de fonction est expliquée dans Winhelp sous VBA ?

Autrement, on peut alors appeler toutes les fonctions comme décrit plus haut... cool !


MERCI MERCI MERCI MERCI MERCI MERCI MERCI