bonjour, voilà

Ce n'est qu'un test, j'ai 3 tables variable:

les tables sont déclarer en debut en Dim tb1(10, 11), tb2(10, 11), tb3(10, 11) As String

la table tb2(10,11) est rempli, les tables tb1 et tb3 sont vides

je veux remplir les deux tables quand je lance ma SUB la table tbX(,) se remplit bien (la valeur Val1 me l'indique + un espion sur les tables) et comme je l'ai mise en ByRef (ByRef tbX(,) As String) dans ma def de SUB, je devrais remplir un coup ma tb1 et la tb2 !!!

quoi je pense mais la mais table ne se remplissent pas !!! pouvez-vous m'aider ?

merci

j'appel une de mes sub :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
test(tb1, tb2)
test(tb3, tb2)
voici ma def SUB

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
    Private Sub test(ByRef tbX(,) As String, ByVal tbY(,) As String)
               For aa = 0 To 10
                   For ii = 0 To 11
                   tbX(aa, ii) = tbY(aa, ii)
                Dim val1 = tbX(aa, ii)
            Next
        Next
    End Sub