Bonjour !

J'ai un petit soucis....

Dans un programme que je produits j'ai créé une structure dans un 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
J'ai aussi créé une variable globale pour la structure dans le module...

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é....

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
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 ????

Merci de vos éclaircissements.

AngelEvil!