Utilisation de Redim preserve

[nbelg27]

Bonjour,
j'essai d'utiliser "redim preserve" pour redimenssionner un tableau sous Excel dans une boucle,
ca marche à la première itération,
ensuite j'ai le message d'erreur : "L'indice n'apparitient pas à la sélection"
Voici le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Dim myarray() As String
Ecran.ColumnCount = 2
 
For i = 0 To 50
    If Not IsNull(Sheets("Données_paramétrage").Range("A" & i + 2)) And Sheets("Données_paramétrage").Range("I" & i + 2) = Me.IGE And Len(Sheets("Données_paramétrage").Range("A" & i + 2)) > 0 Then
    'Ecran.AddItem (Sheets("Données_paramétrage").Range("K" & i))
 
     'ReDim Preserve myarray(2)
 
    ReDim Preserve myarray(i, 0 To 2)
 
        myarray(i, 0) = Sheets("Données_paramétrage").Range("K" & i + 2)
        myarray(i, 1) = Sheets("Données_paramétrage").Range("J" & i + 2)
 
 
        Debug.Print Sheets("Données_paramétrage").Range("K" & i + 2)
 
    End If
Next
 
Ecran.List() = myarray

Quelqu'un aurait une idée ?
Merci d'avance

[AlainTech]

On ne peut Redim que la dernière dimension.

[nbelg27]

Justement, c'est ce que j'essai de faire,
mais j'y arrive pas
Comment obtenir la dernière dimenssion du tableau ?

[AlainTech]

Là, tu essayes de changer la première dimension.

Change l'orientation de ton tableau et mets la dimension à changer en 2e position.

[AlainTech]

Exemple:

Code :

1
2
3
4
5
6
  Dim myarray() As String
  Dim i
  ReDim myarray(2, 0)
  For i = 0 To 5
    ReDim Preserve myarray(2, i) ' <== le i est en dernière position
  Next i

[nbelg27]

Merci, ca marche
mais j'ai encore un petit souci
en fait, la liste "Ecran" contient deux colonnes :

myarray(i, 0) => Correpond a la colonne 1
myarray(i, 1) => Correpond a la colonne 2

j'utilise "Ecran.List() = myarray" pour affecter le résulat de la boucle à la liste "Ecran"
Malheureusement, ca ne marche pas

la liste "Ecran" affiche une seule colonne avec les données des deux première colonnes dans la même colonne
ex:

myarray(1, 0) =1
myarray(2, 0) =2
myarray(1, 1)=a
myarray(2, 1)=b
le résultat que j'obtiens dans la liste
1
a

[SilkyRoad]

bonjour

si j'ai bien compris, tu peux tester

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim myArray(2, 3) As String
 
ListBox1.ColumnCount = 2
 
myArray(0, 0) = "A1"
myArray(1, 0) = "B1"
myArray(0, 1) = "A2"
myArray(1, 1) = "B2"
myArray(0, 2) = "A3"
myArray(1, 2) = "B3"
myArray(0, 3) = "A4"
myArray(1, 3) = "B4"
 
 
ListBox1.List() = Application.WorksheetFunction.Transpose(myArray)

michel