Discussion :

[Mugette]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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.

[SfJ5Rpw8]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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) ...

[Mugette]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Mugette]

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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