peut-on afficher dans une msg box, un tableau entier (rempli) ?

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
 
Public tab_csv As Variant
Public j As Integer
Dim coucou As String
 
Public Sub compte_elts()
 
    Workbooks("local_masse.xls").Activate
    Workbooks.Open "..\..\..\localmasse.csv"
 
    j = 1
    While Workbooks("localmasse.csv").Worksheets("localmasse").Cells(j + 1, 1).Rows.Value <> "" 'boucle déterminant le nombre de ligne dans le csv
 
        tab_csv = Array(Workbooks("localmasse.csv").Worksheets("localmasse").Cells(j, 1).Value, Workbooks("localmasse.csv").Worksheets("localmasse").Cells(j, 2).Value) 'remplissage du tableau
        j = j + 1
 
    Wend
    MsgBox tab_csv ' c'est lma que j'arrive pas à afficher mon tableau !!
 
    Workbooks("localmasse.csv").Close savechanges:=False
 
End Sub