type de données qui contient un tableau dynamique

Version imprimable

02/09/2013, 10h08
Patnel

type de données qui contient un tableau dynamique
bonjour,
je poste une discussion car je n'ai pas trouvé de bonnes réponses sur la toile

je voudrais faire un type de données, ie une structure en vba, dont un élément serait un tableau dynamique.
un exemple sémantique serait un répertoire avec sa liste de fichiers dont on ne connait pas le nombre à priori.
bien sur je pourrais faire autrement, mais je voudrais savoir faire ce genre de structures
Code:

1 2 3 4 5 6 type repertoire nom_rep as string list_fic() as string end type
ce code hurle à la compilation

est ce possible ou bien je me trompe quelque part
02/09/2013, 10h26
mayekeul
Bonjour,

je ne pense pas que la syntaxe fonctionnera comme tu le veux

mais si j'était toi, j'essaierai d'utiliser les collection
Code:

1 2 3 4 5 type repertoire nom_rep as string list_fic as Collection end type
02/09/2013, 10h35
Patnel

aie Collection je connais pas trop bien
je crois que ça fait référence aux modules de classe et je ne ne maitraise pas trop bien encore.
et je ne sais pas si ça répond à ma question
peux tu m'endire plus
02/09/2013, 10h45
mayekeul

simplement
Collection est une liste d'objet
que tu pourras ajouter en faisant par exemple

Code:

list_fic.Add "MonNouveauSrting"

Sinon F1 sera ton grand ami ;o)

je veux essayer ça mais ça hurle à la compil
" impossible de définir un type public défini par l'utilisateur à l'interieur d'un module objet"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Type repertoire
 nom_rep As String
 list_fic As Collection
End Type
 
Sub toto()
 
Dim Tab_essai(1 To 3) As repertoire
 
Tab_essai(1).nom_rep = "Le 1"
Tab_essai(1).list_fic.Add = "titi"
Tab_essai(1).list_fic.Add = "toto"
Tab_essai(1).list_fic.Add = "titi"
 
Tab_essai(2).nom_rep = "Le 2"
Tab_essai(2).list_fic.Add = "vodo"
Tab_essai(2).list_fic.Add = "dofo"
 
End Sub

tu dois essayer comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Type repertoire
 nom_rep As String
 list_fic As New Collection
End Type
 
Sub toto()
 
Dim Tab_essai(1 To 3) As repertoire
 
Tab_essai(1).nom_rep = "Le 1"
Tab_essai(1).list_fic.Add "titi"
Tab_essai(1).list_fic.Add "toto"
Tab_essai(1).list_fic.Add "titi"
 
Tab_essai(2).nom_rep = "Le 2"
Tab_essai(2).list_fic.Add "vodo"
Tab_essai(2).list_fic.Add "dofo"
 
End Sub

pas de "=" lorsque tu fait Add
et mettre New dans la déclaration

Bonjour,

Essaie comme ça, en changeant le dossier :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Type repertoire
 nom_rep As String
list_fic() As String
End Type
Sub test2()
Dim Dossier As repertoire, FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dossier.nom_rep = "C:\Users\Daniel\Documents\Donnees\AMELIE"
With FSO.getfolder(Dossier.nom_rep)
    ReDim Dossier.list_fic(.Files.Count)
    For Each f In .Files
        i = i + 1
        Dossier.list_fic(i - 1) = f.Name
    Next f
End With
MsgBox Dossier.list_fic(0)
End Sub

02/09/2013, 11h39
Patnel

merci Daniel, c'est exactement ce que je veux, et pas loin de ce que j' imaginais

merci mayekeul de tes conseils, je vais regarder de prés ces histoires ce collection