Redim Preserve

Bonjour !

Voila, je vous explique :

J'ai une table 2D que j'aimerai remplire au fur et a mesure (remplissage dans une boucle)
A chaque tour de la boucle, je fais donc un Redim pour ajouter une "ligne" de plus a mon tableau 2D. Le probleme, c'est que je ne peux pas faire de Redim Preserve dans ce cas la pour conserver mes anciennes valeurs :

Code en simplifié :

Code:

---

1 2 3 4 5 6 7 8 9

Dim Table as Variant   Redim table(0 to 0, 0 to 1) For i = 0 to 10 Redim Preserve table(0 to i,0 to 1) table(i,0) = i table(i,1) = i * 2 Next i

---

Le Redim Preserve me met une erreur : "indice n'appartenant pas a la selection"

Alors que sans le Preserve ca marche mais ca efface tout ce qu'il y avait avant!!

Quelqu'un a t il une solution??

Merci

Bonjour,

Un extrait de MSDN :

Citation:

---

Si vous utilisez le mot clé Preserve, vous ne pouvez redimensionner que la dernière dimension du tableau. Vous ne pouvez en aucun cas modifier le nombre de dimensions. Par exemple, si votre tableau n'a qu'une dimension, vous pouvez la modifier puisqu'il s'agit de la dernière et seule dimension. Toutefois, si le tableau compte plusieurs dimensions, seule la taille de la dernière dimension est modifiable si vous souhaitez préserver le contenu du tableau. L'exemple suivant montre comment augmenter la taille de la dernière dimension d'un tableau dynamique sans effacer les données qu'il contient :

ReDim X(10, 10, 10)
. . .
ReDim Preserve X(10, 10, 15)

De même, le mot clé Preserve ne permet de redimensionner un tableau qu'en modifiant la limite supérieure ; toute modification de la limite inférieure provoque une erreur.

---