Discussion :

[Grooz13]

bonjour j'ai environ 16 textbox qui contiendront les valeurs totaux de liste box...

j'ai au total environ 480 textbox... et je dois trouver un moyen de renommer ses listsboxs facilement parce que en faire 480 à la fois c'est décourageant

exemple

Je dois nommé 30 textsbox txtextqte1,txtextqte2,txtextqte3,txtextqte4,txtextqte5,txtextqte6,txtextqte7,txtextqte8,

ya til un moyen avec une boucle ou je sais pas de faire le tours de tout mes texts box ?

[Grooz13]

ok j'ai trouvé ça qui pourrait faire le tour de mes bonnes textbox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
For i = 918 To 1638 Step 24
 
 
Me("Texte" & i).Name = CStr("txtextqte" & Cpt)
Cpt = Cpt + 1
If Cpt = 6 Then
Cpt = 8
End If
If Cpt = 13 Then
Cpt = 15
End If
If Cpt = 20 Then
Cpt = 22
End If
If Cpt = 27 Then
Cpt = 29
End If
If Cpt = 34 Then
Cpt = 36
End If
Next

mais ensuite il me dis que je dois le faire en mode création, est-il possible de le faire à partir d'un autre formulaire exemple de lui dire de le changer dans se formulaire 6