Discussion :

[Whippet]

Bonjour,

Je suis dans un impasse.

Voici mes déclarations :

Code :

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

1
2
3
4
5
 
Dim B1 : B1 = Array("a","b")
Dim B2 : B2 = Array("a","b","c")
'...
Dim B17 : B17 = Array.....

Je souhaite pouvoir lire ces tableaux sans avoir à créer une boucle "For" pour chacun d'eux.

Code :

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

1
2
3
4
5
6
 
For i = 1 To 17
 For j = 0 To Ubound(Bi) '<--- Ici comment construire pour définir B1, B2, etc.
   Msgbox Bi(j)
 Next
Next

Merci

[omen999]

bonjour,
pourquoi ne pas utiliser des tableaux bi-dimensionnels ?

voir aussi ici

[pitchalov]

Bonjour,

Une autre possibilité serait de créer un tableau de tableaux :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
B1 = Array("a","b")
B2 = Array("a","b","c")
...
B17 = Array.....
 
arrAllArrays = Array(B1, B2, ... , B17)
 
For Each arrTmp In arrAllArrays
	For Each strTmp In arrTmp
		Msgbox strTmp
	Next
Next

Encore une autre possibilité, avec la fonction "Execute" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
B1 = Array("a","b")
B2 = Array("a","b","c")
...
B17 = Array.....
 
For i = 1 To 17
 Execute("arrTmp = B" & i)
 For j = 0 To Ubound(arrTmp)
   Msgbox arrTmp(j)
 Next
Next

Bonne continuation.