Discussion :

[zgorfield]

Bonjour à tous,

Dans un userform Excel 2010 (VB Project) :

J'ai une variable tableau qui contient une liste de différents noms de tableaux que je manipule ( list_en = Array("tab_A", "tab_B, ...)
Je souhaiterais affecter à des variables des valeurs spécifiques aux éléments de ces tableaux, devenu des noms de variable d'une liste.
J'arrive à construire la variable du type var = tab_A(i, j) mais je voudrais que "var" prenne la valeur de l'élément du tableau en fonction de mes valeurs de i et j.

Code :

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

1
2
3
4
5
6
7
8
9
10
    Option Base 1
    Dim var As String
    Dim list_en As Variant
    list_en = Array("Tabl_A", "Tabl_A")
 
    For x = 1 To UBound(list_en)
        ....
        ...
        var = list_en(x) & "(1," & x & ")" 
        MsgBox  "var =" & var                    => affiche bien var = Tabl_A(1,1)

mais je voudrais que var m'affiche la valeur de Tab_1(1,1), du style Eval("va") ??

Merci pour votre aide ...

[eriiic]

Bonjour,

tu as fait un tableau de chaines et non de tableaux.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim var    As String, x As Long
    Dim list_en As Variant
    Dim Tabl_A(1 To 3, 1 To 3), Tabl_B(1 To 3, 1 To 3)
    Tabl_A(1, 1) = "A"
    Tabl_B(1, 1) = "B"
    list_en = Array(Tabl_A, Tabl_B)
    For x = 1 To UBound(list_en)
        '....
        '...
        var = list_en(x)(1, 1)
        Debug.Print var
    Next x
End Sub

eric

[RyuAutodidacte]

Bonjour,

un exemple simple à adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim TAB_A(1 To 2), TAB_B(1 To 2), List
    TAB_A(1) = "A"
    TAB_A(2) = "B"
    TAB_B(1) = "C"
    TAB_B(2) = "D"
    List = Array(TAB_A, TAB_B)
 
    For i = LBound(List) To UBound(List)
        For j = LBound(List(i)) To UBound(List(i))
            MsgBox List(i)(j)
        Next
    Next
End Sub

Edit : Slt Eric , j'ai un poil de retard

[zgorfield]

Bonjour,

tu as fait un tableau de chaines et non de tableaux.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim var    As String, x As Long
    Dim list_en As Variant
    Dim Tabl_A(1 To 3, 1 To 3), Tabl_B(1 To 3, 1 To 3)
    Tabl_A(1, 1) = "A"
    Tabl_B(1, 1) = "B"
    list_en = Array(Tabl_A, Tabl_B)
    For x = 1 To UBound(list_en)
        '....
        '...
        var = list_en(x)(1, 1)
        Debug.Print var
    Next x
End Sub

eric

Si tu parles de "list_en", c'était bien mon intention - La boucle vraiment moche et sans bon sens était pour tenter d'exposer mon souci avec les valeurs des tableaux dont les noms et indices sont construit dans des boucles. J'ai repris ta démarche et tout fonctionne bien maintenant - Merci beaucoup (ainsi qu'aux autres qui se sont joint à mon problème).