Problème de redimensionnement, tableaux dynamiques

Bonjour à tous,

Quelqu'un saurait-il m'expliquer ce qui cloche dans ma manière de déclarer mon tableau à deux dimensions ?? Là, je patauge complètement :cry:
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

'J'ai aussi essayé avec Dim mon_tab(1, 1) Dim mon_tab(0, 0)   Dim i, j, cpt cpt = 0 i = 0 j = 0   For i = 0 To 5 Step 1 Redim mon_tab(i+1 ,j) Response.write i For j = 0 to 10 Step 1 Redim Preserve mon_tab(i, j+1) Response.Write j mon_tab(i, j) = j + cpt Next cpt = cpt + 1 Next   For i = 0 To 5 Step 1 For j = 0 to 10 Step 1 Response.Write "<p> val ("&i&","&j&") est :" & mon_tab(i, j) & "</p>" Next Next

---

L'erreur renvoyée est

Citation:

---

Erreur d'exécution Microsoft VBScript error '800a0009'

Indice en dehors de la plage

recup_orient.asp, line 13

---

une idée ?
-M@rc0-

essaye ceci :

Code:

---

1 2 3 4 5 6 7 8 9

For i = 0 To 5 Step 1 Response.write i For j = 0 to 10 Step 1 Redim Preserve mon_tab(i+1, j+1) Response.Write j mon_tab(i, j) = j + cpt Next cpt = cpt + 1 Next

---

Salut ced600 et merci de ta réponse rapide,

J'ai oublié de préciser que j'avais déjà essayé la solution que tu me propose (et qui me parassait plus logique). Dans le doute je viens de tenter d'exécuter ton code mais cela ne marche toujours pas.
:roll:

-M@rc0-

extrait de l'aide ...VBSCript

voir :faq: Où trouver l'aide en ligne pour VBScript ?

Citation:

---

Envoyé par Redim preserve

Si vous utilisez le mot clé Preserve, vous ne pouvez modifier que la dernière dimension du tableau et, en aucun cas, le nombre de dimensions. Par exemple, si votre tableau ne comporte qu'une seule dimension, vous pouvez la modifier car c'est la dernière et seule dimension. Toutefois, si votre tableau comporte deux ou plusieurs dimensions, vous ne pouvez modifier que la dernière dimension, tout en conservant le contenu du tableau.

---

Bonjour bbil et merci pour ta réponse,

J'aurais sûrement dû poster pour indiquer que j'avais pris connaissance de cette info depuis --> Désolé. Je cherche donc une solution alternative. En fait, dans l'application que je vais en faire, ma seconde dimension est fixe. Je me rend compte qu'une structure serait plus appropriée (à un nom j'associe dix valeurs numériques), ainsi j'aurais un tableau à une dimension remplie de structures. Je n'ai pas encore regardé si les structures sont envisageables en VBS...

Je suis à l'écoute de toute proposition :D

-M@rc0-

Re-bonjour à tous,

N'ayant trouvé aucune information indiquant qu'il est possible d'établir des structures de données, je continue avec mon tableau à deux dimensions mais en "inversant" mes dimensions. Mais... ça ne marche pas. Si quelqu'un veut bien jeter un oeil...je sèche.:(
Voici le nouveau code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'J'ai tenté beaucoup d'autres type de déclaration initiale de mon tableau Dim mon_tab(10,1)   Dim i, j, cpt cpt = 0   Response.write "<h5> Remplissage </h5>" For j = 0 To 5 Step 1 For i = 0 to 10 Step 1 'Response.Write j mon_tab(i, j) = cpt cpt = cpt + 1 Next Redim Preserve mon_tab(i, j+1) Next Response.write "<h5> Fin Remplissage </h5>"

---

Le message d'erreur est :

Erreur d'exécution Microsoft VBScript error '800a0009'

Indice en dehors de la plage

recup_orient.asp, line 13

A vot' bon coeur :D

:yaisse2::yaisse2::yaisse2::yaisse2:
Bon, tout est rentré dans l'ordre : ça roule ! Afin que ma galère soit profitable au plus grand nombre je joins le code et SURTOUT le lien qui m'a sorti de la galère :) (vous mis à part ;) )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim mon_tab ReDim mon_tab(10,0)   Dim i, j, cpt cpt = 0 Response.write "<h5> Remplissage </h5>" For i = 0 to 3 ReDim Preserve mon_tab(10, i+1) For j = 0 to 10 mon_tab(j, i) = cpt cpt = cpt +1 Next Next Response.write "<h5> Fin Remplissage </h5>"   Response.write "<h5> Lecture </h5>" For i = 0 to 3 For j = 0 to 10 Response.Write "<p> ("&j&", "&i&") : "&mon_tab(j ,i)&" </p>" Next Next   Response.write "<h5> Fin Lecture </h5>"

---

Le lien : http://www.brico-info.com/index.php/...ent-verrouille

Bonne journée à tous !

-M@rc0-

Au passage en vbs il est possible de faire des structures, des objets (sans l'héritage), des dictionnaires, et un autre truc de type collection mais je ne me souviens plus.
Les collections tu peux en récupérer mais je n'ai jamais su en créer :(

En fait je m'amusais avec les dictionnaires à chaque fois que j'avais besoin de stocker des données sans connaitre le nombres de données à stocker.

Salut ced600,

Tu pourrais m'aiguiller sur de la documentation concernant concernant les structures (ça me servira sûrement...). Il faut croire que Google et moi ne sommes pas très amis : j'ai rien trouvé (j'avoue ne pas y avoir passé des heures -> je suis en stage et la deadline approche :?).
Enfin bref, si tu as un ou deux liens pour les structures et objets en vbs, je suis plus que preneur...

-M@rc0-

Désolé mais pour les structures je crois que je les ai révés. C'est étonnant d'autant qu'il y a la possibilité de faire des classes 8O

Pour les classes, commençons avec un exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Class MaClasse Private Message   Public Property Set GetMessage(mes) Message = mes End Property   Private Sub Class_Initialize() 'Constructeur. End Sub   Private Sub Class_Terminate() 'Destructeur. End Sub   Public Function Affichage() MsgBox Message End Function End Class   Dim ObjectMaClass Set ObjectMaClass = New MaClass   ObjectMaClass.SetMessage("Ma première classe.") ObjectMaClass.Affichage()

---

Je n'ai pas testé mais cela devrait marcher.
Plus d'info ici :
http://www.activexperts.com/axscript/vbscriptclasses/
http://jerome.developpez.com/tutos/classesvbscript/

Tu peux utiliser les objets à la place des structures ;)