Discussion :

[Mario Rousson]

Bonjour,

J'essai depuis quelques jours de faire un tableau dynamique à deux colonnes, une avec le nom des dossiers et l'autre avec sa taille.

Mais voila, dans un premier temps histoire d'apprendre le fonctionnement je suis incapable de faire un tableau fixe à une colonne avec le nom des dossiers

Où je m'intéroge, j'utilise for each, next pour récupérer la liste des dossiers, et for I = 0 to 14 pour les tableaux.

J'ai imaginé ce code mais ça marche pas le tableau reste vide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For I = 0 To 14
Tableau(I) = ""
Next I
I = 0
For Each fld1 In SFld
FlNom = CStr(fld1.Name)
 
Tableau(I) = FlNom
I = I + 1
Debug.Print (Tableau(I))
Next

Merci de votre aide
Mario

[Heureux-oli]

Jette un oeil ici http://silkyroad.developpez.com/vba/tableaux/

C'est en Excel, mais la gestion en Access ou en Excel pour les tableaux reste la même.

[Mario Rousson]

Merci beaucoup

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
For Each fold In SFld
FlNom = CStr(fold.Name)
FolSize = (fold.Size)
x = x + 1
ReDim Preserve Tableau(1 To 2, 1 To x)
Veriftab = UBound(Tableau)
Tableau(1, x) = FlNom
Tableau(2, x) = FolSize
Debug.Print (Tableau(1, x) & " ---> " & Tableau(2, x))
If Veriftab = SFldComp Then Exit For
Next
Exit Sub
err:
MsgBox "erreur"
Exit Sub