Définition de variables dépendant. . .d'une variable

Bonjour,

Est il possible de définir une variable en fonction d'une autre?

Dans le code ci-dessous, comment faire pour que Array_Tot soit défini en fonction d'une variable de mon choix (qui aurait été valorisée au préalable?

j'ai essayé ceci mais ca ne marche pas:

Code:

1
2
i = 16
Dim Array_Tot(& i &)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Dim Array_Tot(16)
Array_Tot(0) = Array(0, 2)
Array_Tot(1) = Array(2, 2)
Array_Tot(2) = Array(4, 2)
Array_Tot(3) = Array(10, 2)
Array_Tot(4) = Array(12, 2)
Array_Tot(5) = Array(18, 2)
Array_Tot(6) = Array(24, 2)
Array_Tot(7) = Array(30, 2)
Array_Tot(8) = Array(54, 2)
Array_Tot(9) = Array(61, 2)
Array_Tot(10) = Array(66, 2)
Array_Tot(11) = Array(81, 2)
Array_Tot(12) = Array(86, 2)
Array_Tot(13) = Array(91, 2)
Array_Tot(14) = Array(102, 2)
Array_Tot(15) = Array(118, 2)
Array_Tot(16) = Array(149, 2)
 
classeur = ActiveWorkbook.Name
Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
 
If Fichier <> False Then
        Workbooks.OpenText Filename:=Fichier, _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array_Tot(), _
        TrailingMinusNumbers:=True
End If

D'avance merci.

Ted