Concaténation String number

Version imprimable

Bonjour,

Je suis dans un impasse.

Voici mes déclarations :
Code:

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:

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

26/04/2012, 18h28
omen999

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

voir aussi ici

Bonjour,

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

Code:

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:

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.