Discussion :

[Frog74]

Bonjour,

je sais que j'ai réussi sous visual csharp à trouver une solution mais je ne me souviens pas laquelle.

J'ai 8 textbox :

txt1 , txt2 etc.. jusqu'a txt8

et j'aimerais dans un pour faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for i = 0 to 7 
txti+1 = tab(i)
next i

le but est d'affecter à chaque textbox la case du tableau correspondant à son numéro a savoir 1 pour txt1 , 2 pour txt2 etc...)
j'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

txt&i+1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

txt"&i+1&"

rien ne marche , auriez vous une idée s'il vous plait !

[Kloun]

Avec "Eval" ?

[Frog74]

merci ,

j'ai un pti soucis , il semble qu'il ai un problème avec ma textebox :

cette ligne ciblée j'ai une erreur : "Objet requis" erreur 424.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Eval(txt & i) = str

Je crache pas sur un brin de syntaxe si ta l'habitude

EDIT : AVec les guillemet j'ai : Impossible pour SRt de trouver le nom "txt" entré dans l'expression : /

[lanonyme]

Bonjour,

Je te propose de parcourir chaque control que tu as, et tous ceux qui commence par txt, on recupere son numero pour l'utiliser et assigné la valeur à la textbox correspondante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim ctl As Control
For Each ctl In Me.Controls ' on parcours tous les controles
        If (Left(ctl.Name, 3) = "txt") Then ' il commence par txt
            ' on recupere la valeur chiffré et on l'utilise
            ctl.value = tab(cint(mid$(ctl.name,4))) 
        End If
Next ctl

Cordialement,

lanonyme

[Frog74]

Merci vieux ça marche niquel

méthode plus qu'impressionante !