[VB6]Tableau redimensionnable

**Araamarmorth** · 29/01/2006, 16h30

Bonjour, je suis un petit nouveau et j'essaye de faire pour un programme un tableau à 2 entrées (du type nomdutableau(,)) qui me servirai dans plusieurs forms .J'ai fait un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public team(,) As String

dans mon module mais ça ne marche pas " Compile error: Expected: expression" ,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public team(),() As String

ne marche pas non plus mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public team() As String

si

Merci d'avance

**ThierryAIM** · 29/01/2006, 16h59

et alors

:

**méphistopheles** · 29/01/2006, 17h13

je vois, j'ai eu le même problème.

en fait, il faut déclarer ton tableau comme cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim Montabeau() as string.

ensuite, si tu veux le redimentionner à plusieurs collones, tu fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

redim preserve montableau(min to max, min to max)

voilà.

salut

**AlainTech** · 29/01/2006, 21h14

Euh, si je ne me trompe, le Redim ne peut modifier que la dernière dimension...

**edam** · 29/01/2006, 21h23

essay

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
structur t
   tac() as string
end structur
....
dim toc() as t
proc ddd
redim toc(3)
for i=0 to 2
   redim toc(i).tac(3)
next

**méphistopheles** · 29/01/2006, 22h15

Envoyé par AlainTech

Euh, si je ne me trompe, le Redim ne peut modifier que la dernière dimension...

sur un tableau dont les dimentions ne tont pas déclarées ( "()" ) il n'y as pas de problèmes.

**AlainTech** · 30/01/2006, 10h27

Juste.

Il manquait un petit quelque chose à ma réponse.
C'est le Redim Preserve qui ne peut modifier que la dernière dimension.

Donc,

Envoyé par méphistopheles

redim preserve montableau(min to max, min to max)

avait des raisons de me choquer

Xo · 30/01/2006, 13h31

That's on the forum

http://www.developpez.net/forums/vie...r=asc&start=12

**méphistopheles** · 31/01/2006, 19h03

Envoyé par AlainTech

Donc,

Envoyé par méphistopheles

redim preserve montableau(min to max, min to max)

avait des raisons de me choquer

désolé de t'avoir choqué

sinon, j'avais en effet oublié que le préserve ne s'apliquait qu'a la derniere dimention.

au fait, comment fait-on si on veut modifier la première?

salut

**ThierryAIM** · 31/01/2006, 19h05

Envoyé par méphistopheles

au fait, comment fait-on si on veut modifier la première?

on peut pas

**méphistopheles** · 31/01/2006, 20h15

ça veut dire qu'on dois la copier ailleurs et la remetre apres je suppose...

**jmfmarques** · 31/01/2006, 20h34

Puis-je très timidement rappeler ici :
1) qu'il ne convient pas de parler de "dernière" dimension mais de la dimension "la plus grande". De la même façon, on ne parle pas de la "première" dimension mais de la "plus petite" (qui ne peut en effet être diminuée par un "Redim Preserve" pour des raisons évidentes.
2) que dans le cas de notre ami demandeur, le problème ne se pose pas puisque, à la base, il n'y a encore aucune dimension arrêtée. Un simple Redim fera, dans ce cas de figure et à mon humble avis, tout-à-fait l'affaire (preserve ou pas)

**méphistopheles** · 31/01/2006, 20h42

je l'avais mis au cas ou il voulait le refaire apres.

évidement, ça n'a aucuns interet avant remplissage...

**AdHoc** · 01/02/2006, 14h14

Bonjour,
pour redimensionner toutes les dimensions d'un tableau à n dimensions, une solution simple à mettre en en oeuvre, c'est :
- copier le tableau d'origine dans un tableau de meme format
- redimensionner l'origine sans preserve
- boucle sur toutes les dimensions pour copier les éléments du tableau de sauvegarde dans le tableau redimensionné en faisant attention aux limites des 2 tableaux.

Sinon, ne pas oublier qu'un tableau de n dimension est un tableau de tableau de n-1 dimensions.

**jmfmarques** · 01/02/2006, 14h19

bis repetita, donc :

un innocent (en l'occurence moi-même) a écrit (voir plus haut) :

2) que dans le cas de notre ami demandeur, le problème ne se pose pas puisque, à la base, il n'y a encore aucune dimension arrêtée. Un simple Redim fera, dans ce cas de figure et à mon humble avis, tout-à-fait l'affaire (preserve ou pas)

faut-il ajuouter : pas de dimensions et pas de données ?

**random** · 01/02/2006, 15h00

Envoyé par jmfmarques

Puis-je très timidement rappeler ici :
1) qu'il ne convient pas de parler de "dernière" dimension mais de la dimension "la plus grande". De la même façon, on ne parle pas de la "première" dimension mais de la "plus petite" (qui ne peut en effet être diminuée par un "Redim Preserve" pour des raisons évidentes.
2) que dans le cas de notre ami demandeur, le problème ne se pose pas puisque, à la base, il n'y a encore aucune dimension arrêtée. Un simple Redim fera, dans ce cas de figure et à mon humble avis, tout-à-fait l'affaire (preserve ou pas)

Puis-je très timidement rappeler ici qu'il convient bien de parler de dernière dimension
la preuve

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
 
Function tredim() As String
 Dim x() As Integer
 ReDim x(273, 3)
 ReDim Preserve x(273, 4)
Dim y() As Integer
ReDim y(3, 665)
ReDim Preserve y(3, 666)
' c'est diabolique
tredim = "pas de grande  ni de petite"
On Error GoTo zutalors
ReDim Preserve y(4, 666)
zutalors:
MsgBox ("la dernière dimension")
End Function

**méphistopheles** · 01/02/2006, 15h23

Envoyé par random

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
 
Function tredim() As String
 Dim x() As Integer
 ReDim x(273, 3)
 ReDim Preserve x(273, 4)
Dim y() As Integer
ReDim y(3, 665)
ReDim Preserve y(3, 666)
' c'est diabolique
tredim = "pas de grande  ni de petite"
On Error GoTo zutalors
ReDim Preserve y(4, 666)
zutalors:
MsgBox ("la dernière dimension")
End Function

remarque: ontombera toujours sur zutalors que le ReDim Preserve y(4, 666) s'execute ou non.

salut.

Edit: c'est amusant, on peut égualement diminuer la taille aavec le préserve... bien qu'il ne préserve pas tout. évidement.

**jmfmarques** · 01/02/2006, 16h22

random a écrit :

Puis-je très timidement rappeler ici qu'il convient bien de parler de dernière dimension
la preuve

Code:

Function tredim() As String
Dim x() As Integer
ReDim x(273, 3)
ReDim Preserve x(273, 4)
Dim y() As Integer
ReDim y(3, 665)
ReDim Preserve y(3, 666)
' c'est diabolique
tredim = "pas de grande ni de petite"
On Error GoTo zutalors
ReDim Preserve y(4, 666)
zutalors:
MsgBox ("la dernière dimension")
End Function

Je ne vois nulle part que le demandeur a exprimé cela . Peux-tu m'éclairer ?