Discussion :

[Neuromancien2]

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 :

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

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

[ThierryAIM]

Preserve ne permet de redimensionner que la dernière dimension d'un tableau

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

[Neuromancien2]

Comment faire dans ce cas ?

[ThierryAIM]

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

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