Bonjour !
J'ai un petit soucis....
Dans un programme que je produits j'ai créé une structure dans un module.
J'ai aussi créé une variable globale pour la structure dans le module...
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
22
23
24
25
26
27
28
29
30
31
32
33
34
35 Public Structure Struc Dim piece1 As String Dim desc1 As String Dim qte1 As String Dim piece2 As String Dim desc2 As String Dim qte2 As String Dim piece3 As String Dim desc3 As String Dim qte3 As String Dim piece4 As String Dim desc4 As String Dim qte4 As String Dim piece5 As String Dim desc5 As String Dim qte5 As String Dim piece6 As String Dim desc6 As String Dim qte6 As String Dim piece7 As String Dim desc7 As String Dim qte7 As String Dim piece8 As String Dim desc8 As String Dim qte8 As String End Structure
Code : Sélectionner tout - Visualiser dans une fenêtre à part Public laStruc As Struc
Jusque là tout va bien....
C'est lorsque je veux sauvegarder dans la structure les données je veux faire une boucle FOR afin de simplifier le code, optimiser si vous voulez....
Voici ce que j'ai codé....
Ce code ne fonctionne pas.... Est-ce possible de remplir une structure comme j'ai avec une boucle FOR ou bien je dois tout faire un après l'autre et alourdir le code ????
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 For i = 1 To 8 laStruc.piece & (i) = Me.Txt_Piece & (i) & .text laStruc.desc & (i) = Me.Txt_desc & (i) & .text laStruc.qte & (i) = Me.Txt_Qtee & (i) & .text Next
Merci de vos éclaircissements.
AngelEvil!
Partager