Problème de redimensionnement tableau à 2 dimensions

Bonjour,

Je n'arrive pas à redimmensionner un tableau à 2 dimensions. J'obtiens l'erreur suivante : Erreur d'exécution Microsoft VBScript (0x800A0009)
Indice en dehors de la plage

Voilà mon code:

redim batiment(50,2)
i=0
 Do While not objRecordset01.eof
   batiment(i,0)=objRecordset01("NAME0")
   batiment(i,1)=objRecordset01("ID0")
   objRecordset01.MoveNext
   i=i+1   
 loop
 ReDim Preserve batiment(i,2)

J'avais eu la même erreur avec un tableau à 1D, il fallait juste déclarer le tableau avec redim au lieu de dim .

Merci pour votre aide

tu obtiens une erreur au premier "Redim" ou au 2e "Redim"

Met Dim batiment(50,2) au début
(je pense pas que tu ais besoin du premier redim cette fois ci )


Nurgle
C'est une grande folie que de vouloir être sage tout seul !

J'obtiens une erreur au 2ème ReDim, j'avais déjà éssayé avec juste Dim au 1ier, j'ai retesté là, mais ca ne marche pas

Merci pour ton aide !

tu peux obtenir le nombre d'enregistrement par la propriété objRecordSet01.RecordCount.
Donc tu peux dès le début faire : Dim batiment(objRecordset01.RecordCount, 2)
comme ça tu n'auras pas de redim à faire
(cette propriété n'est pas prise en charge par tous les types de BD malheureusement...)

Ah aussi : tu ne peux pas redimensionner un tableau en un tableau plus petit tout en voulant préserver les données. Donc si à la fin de ta boucle, i < 50, ça va planter.


Nurgle
C'est une grande folie que de vouloir être sage tout seul !

ça marche avec access en théorie ou pas ? Parce que là RecordCount me retourne -1. Ca aurait pu être niquel sinon

il te retourne -1, donc ça marche pas

Quelle est environ la valeur de i à la fin de ta boucle ?
Si à la fin i < 50, alors, tu auras des lignes vides dans ton tableau, mais c'est pas bien grave...donc ça irait.
Si i  > 50, alors il y aurait un moment dans ta boucle ou par exemple i = 53, où cette ligne ne fonctionnerais pas : batiment(1,2) = objRecordset01("ID0") car il est déclaré comme batiment(50,2)

Sinon il faudrait faire une première boucle qui ne servirait à qu'à trouver le nombre de ligne de ton recordset, puis créer le tableau avec directement le bon nombre de lignes, puis le remplir avec une 2e boucle (celle que tu utilises actuellement).
ça c'est sûr de marcher, mais c'est la solution la moins rapide...


Nurgle
C'est une grande folie que de vouloir être sage tout seul !

Bah mon i est largement < à 50, j'ai mis 50 pour prévoir large. Je vais finalement opter pour la méthode de barbare alors  avec une seconde boucle juste pour compter les éléments.
A ton avis, d'un point de vue optimisation, il te semblerait plus adapter de faire la 2nde boucle et d'avoir des tableaux pile à la bonne taille, ou bien de se trimballer d'énormes tableaux

Merci encore !

Oki merci beaucoup pour la précision !
Je retourne me prendre la tête .

Bonjour à vous.

Pour le REDIM, il y une particularité; on ne peut pas redimensionner un tableau à plusieurs dimensions sur les dimensions inférieures. je m'explique :

DIM TOTO(0,0)

REDIM TOTO(10,2)  OK
REDIM TOTO(10,10) OK
REDIM TOTO(11,10) ERREUR

On ne peut qu'augmenter la valeur supérieur d'un tableau.

Pour ton cas, j'inverserai les valeurs; je ferais batiment(2,i) dont i peut être redimensionnable (valeur suppérieur du tableau)
REDIM batiment(2,10), REDIM batiment(2,17) ,REDIM batiment(2,24) tout ca ok

J'espère avoir été assez clair dans mes explications confuses.

Bonne journée