[vbexcel]Pb remplissage tableau

Version imprimable

Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim tab_csv(2, 15) Dim i As Integer Dim k As Integer ----------------------------------------------------------------------------------- For i = 1 To 2 For k = 1 To 15 tab_csv(i, 1) = Workbooks("localmasse.csv").Worksheets("localmasse").Cells(i, 1).Text tab_csv(i, 2) = Workbooks("localmasse.csv").Worksheets("localmasse").Cells(i, 2).Text Next k Next i MsgBox tab_csv(1, 11)
J'ai un tableau à 2 dimensions ( avec 2 colonnes, et un nb de ligne infini )
Je voudrais stocker les valeurs d'un fichier csv dans ce tableau;
C'est ce que le code est censé faire mais ca marche pas, Pourquoi ?
Merci d'avance.

26/09/2005, 12h09
Mugette

Oui c'est mieux mais ma MsgBox n'affiche toujours rien.
Je comprend pas, j'ai du me planter dans mes incdices parce que c'est pas normal.

Re: [vbexcel]Pb remplissage tableau

Citation:
Envoyé par Mugette
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim tab_csv(2, 15) Dim i As Integer Dim k As Integer ----------------------------------------------------------------------------------- For i = 1 To 2 For k = 1 To 15 tab_csv(i, 1) = Workbooks("localmasse.csv").Worksheets("localmasse").Cells(i, 1).Text tab_csv(i, 2) = Workbooks("localmasse.csv").Worksheets("localmasse").Cells(i, 2).Text Next k Next i MsgBox tab_csv(1, 11)
J'ai un tableau à 2 dimensions ( avec 2 colonnes, et un nb de ligne infini )
Je voudrais stocker les valeurs d'un fichier csv dans ce tableau;
C'est ce que le code est censé faire mais ca marche pas, Pourquoi ?
Merci d'avance.
revoit la façon dont tu dimension et utilise le tableau ...: dim tab (2,15) puis tu utilise :tab_csv(1, 11)
en inversant (x,y) ...

Code:

1
2
3
4
5
6
7
8
 
Dim i as Integer
Dim tab_csv as Variant
--------------------------------------------------------------------------------------
 
    For i = 1 To j
        tab_csv = Array(Workbooks("localmasse.csv").Worksheets("localmasse").Cells(j, 1).Value, Workbooks("localmasse.csv").Worksheets("localmasse").Cells(j, 2).Value)
    Next i

Là c'est mieux ?
C'est plus simple de faire comme ca, non ?

26/09/2005, 12h37
Mugette

sachant que ma variable j est une variable annoncer au dessus. Cela correspond au nombre de ligne.

si tu utilise la variable i comme index dans ta boucle, FOR c'est elle qui faut utiliser ensuite ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Base 1 ' Index tableau commence à 1 ..
Sub test()
Const j = 15
Dim tab_csv(2, j)
 
 
For i = 1 To j
    With Workbooks("localmasse.csv").Worksheets("localmasse")
 
        tab_csv(1, i) = .Cells(i, 1).Value
        tab_csv(2, i) = .Cells(i, 2).Value
   End With
Next
End Sub

:wink: