Discussion :

[marsupilami34]

Bonjour,

je réalise une macro avec des tableaux. Ces tableaux sont nommés comme ceci :

tablo1
tablo2
tablo3
....

En fait je voudrais faire une boucle for qui prenne en compte tous mes tableaux comme par exemple :

Code :

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

1
2
3
4
5
 
Dim i as integer
For i=1 to 3
     call procedure(tablo & & i) 
Next

Mais ca ne marche pas. Je voudais mettre en paramètre mon nom de tableau suivi du numéro d'incrémentation.

Quelqu'un peut-il m'aider.

Merci d'avance

[random]

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
 
 
Option Explicit
Option Base 1
 
Sub tablo()
Dim tab1(100) As Double
Dim tab2(100) As Double
Dim tab3(100) As Double
Dim metab As New Collection
Dim incr As Variant
Randomize
For incr = 1 To 100
tab1(incr) = Rnd()
tab2(incr) = Rnd()
tab3(incr) = Rnd()
Next incr
metab.Add (tab1)
metab.Add (tab2)
metab.Add (tab3)
For Each incr In metab
Debug.Print incr(40)
Next incr
End Sub