Nom de tableaux dans boucle (pas boucle dans tableau)

[fred65200]

Bonsoir à tous

J'ai plusieurs tableaux nommés tablo1, tablo2, tablo3.

Est t'il possible de faire appel à c'est tableaux dans une boucle

for i = 1 to 3
'ici je bloque et n'ai pas trouvé la synthaxe
"tableau" & i = Range("blabla" & i).value
next i

D'avance merci

fred65200

 

[Épaf]

Re : Nom de tableaux dans boucle (pas boucle dans tableau)

Salut fred65200
Je ne suis pas certain d'avoir compris...
Tu as la collection ou bien le tableau de tableau

Sub TabloDeTablo()
Dim Tablo
    Tablo1 = Array("fred", "arthur", "edouard", "Marcel")
    Tablo2 = Array("julie", "sophie", "eulalie", "eugénie")
    Tablo3 = Array("bijou", "caillou", "chou", "genou")
    Tablo = Array(Tablo1, Tablo2, Tablo3)
    For i = 0 To 2
        For j = 0 To 3
              MsgBox Tablo(i)(j)
        Next
    Next
End Sub

mais je ne sais pas si ça répond à ta question
A+

 

[Épaf]

Re : Nom de tableaux dans boucle (pas boucle dans tableau)

La collection ne se rapprocherait-elle pas de ton pb

Sub LaCollection()
 Dim MaColect  As New Collection, valeur
    ' Rempli la
    MaColect.Add "Et alors ? ", "1"
    MaColect.Add "C'est ", "2"
    MaColect.Add "quoi ", "3"
    MaColect.Add "ton problème ?", "4"
    'Affichage
    Debug.Print MaColect("1") & MaColect("2") & MaColect("3") & MaColect("4")
    MsgBox MaColect("1") & MaColect("2") & MaColect("3") & MaColect("4")
    For i = 1 To 4
        MsgBox MaColect(CStr(i))
    Next
End Sub

@+

 

[fred65200]

Re : Nom de tableaux dans boucle (pas boucle dans tableau)

Super, un grand merci Épaf

Un bout de temps que je bataillais sur de mauvaises pistes pour enfin avoir la solution

avec des tableaux à deux dimensions

For i = 1 To UBound(Tablo)
For j = 1 To UBound(tab1)
For k = 1 To UBound(tab1, 2)
Debug.Print i, j, k, Tablo(i)(j, k)
Next k
Next j
Next i


Encore merci