Discussion :

[Mugette]

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

[sovo]

Je ne croit pas qu'il soit possible d'afficher directement un tableau. Alors voila ce que je te propose.

- soit tu affiches les valeur du tableau une par une
- soit tu affiches les valeur tu tableau en les enumerant (probleme si elles sont nombreuse)
- soit tu mets d'abord les valeurs du tableau dans une varaible (tout en formatant comme tu veux les afficher), et ensuite tu affiches la variable.