[VBA-E] Problème de tableau

Version imprimable

Bonjour,

Je souhaite remplir un tableau à deux dimensions à partir des données d'un fichier CSV. Mais j'ai des problème avec le ReDim. Je reçois le message :

Citation:

Erreur d'exécution '9'. L'indice n'appartient pas à la sélection.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub extractFile(strPath)
    Dim sSep As String
    sSep = ";"
    Dim strNextLine As String
    Dim asTemp() As String
    Dim asData()
    Dim i, j As Integer
 
    Open strPath For Input As #1
    i = 0
    While EOF(1) = False
        Line Input #1, strNextLine
        asTemp = Split(strNextLine, sSep)
        MsgBox ("ReDim asData(" & i & ", " & UBound(asTemp) & ")")
        ReDim Preserve asData(i, UBound(asTemp))
        For j = 0 To UBound(asTemp)
            asData(i, j) = asTemp(j)
        Next
        i = i + 1
    Wend
    Close #1

End Sub

12/06/2006, 23h24
ThierryAIM

Preserve ne permet de redimensionner que la dernière dimension d'un tableau
13/06/2006, 00h46
zazaraignée

Je croyais que Preserve ne servais qu'a 'préserver' les données du tableau... Cependant, Redim, en effet, ne redimentionne que la dernière dimention mentionnée du tableau... du moins, il me semble.
13/06/2006, 09h17
Neuromancien2

Comment faire dans ce cas ?
13/06/2006, 17h26
ThierryAIM

Citation:

Envoyé par zazaraignée

Je croyais que Preserve ne servais qu'a 'préserver' les données du tableau... Cependant, Redim, en effet, ne redimentionne que la dernière dimention mentionnée du tableau... du moins, il me semble.

Nan, zaza :D

Redim permet de redimensionnner toutes les dimensions d'un tableau (déclaré sans dimension)

Redim Preserve : uniquement la derniere dimension, en gardant les données déjà enregistrées