Discussion :

[Didi34]

Bonjour,
J'ai une question sur le redimensionnement des tableaux.
J'ai un tableau dont je connais le nombre de colonne mais pas le nombre de ligne.
J'ai lu que si j'utilise le Redim Preserve, je peux redimensionner.
Dans mon cas, c'est ce que je fais, mais j'ai un message d'erreur
"Tableau deja dimensionner":
Voila le bout de code, quelqu'un peut m'aider?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim TableauRecap(1, 2) As String    'Creation du tableau avec une ligne
IndexLabel = 0    'Index pour faire varier les lignes du tableau
For i = 0 to X
   IndexLabel = IndexLabel+1
   'Ajouter au tableau la ligne actuelle
    ReDim Preserve TableauRecap(IndexLabel, 2) As String
    TableauRecap(IndexLabel, 0) = "tata"
    TableauRecap(IndexLabel, 1) = "toto"
    TableauRecap(IndexLabel, 2) = "titi"
Next i

Cordialement.

[jfdmagic]

Combien vaut ton X ?

[Didi34]

X = UnObjet.Count - 1

J'ai réussi à faire fonctionner le truc!
Le problème est que mon tableau a subi une rotation: inversion des lignes et colonnes pour effectuer un Redim, c'est normal?

[iclic]

Bonjour,

Tu peux aussi faire comme ceci

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
 
'voir l'instruction Ubound dans ta MSDN
 
dim Tableaucap() as string
ReDim TableauRecap(1, 2)     'Creation du tableau avec une ligne
IndexLabel = 0    'Index pour faire varier les lignes du tableau
 
For i = 0 to X
    IndexLabel = IndexLabel+1
    'Ajouter au tableau une ligne supplémentaire
    ReDim Preserve TableauRecap (UBound (TableauRecap) + l, 2)
    TableauRecap(IndexLabel, 0) = "tata"
    TableauRecap(IndexLabel, 1) = "toto"
    TableauRecap(IndexLabel, 2) = "titi"
Next i

A+

[Delbeke]

On ne peut redimmensionner que le dernier indice, me semble t-il

Il te faut modifier ton code comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim TableauRecap() As String    'Creation du tableau vide, il sera dynamique
Dim TableauRecap(2,0)            'redimenssionnement avec raz
IndexLabel = 0    'Index pour faire varier les lignes du tableau
For i = 0 to X
   IndexLabel = IndexLabel+1  'pourqoui ne pas utiliser i ?
   'Ajouter au tableau la ligne actuelle
    ReDim Preserve TableauRecap(2,IndexLabel) As String
    TableauRecap(0,IndexLabel) = "tata"
    TableauRecap(1,IndexLabel) = "toto"
    TableauRecap(2,IndexLabel) = "titi"
Next i

[iclic]

Bonjour,

Envoyé par Delbeke
On ne peut redimmensionner que le dernier indice, me semble t-il

Oui c'est exact sauf que...
Trouvé dans la MSDN

Vous ne pouvez utiliser ReDim que pour modifier la taille de la dernière dimension d'un tableau au sein d'un Variant. Pour créer un tableau à plusieurs dimensions susceptible d'être redimensionné, il est nécessaire qu'il ne soit pas contenu à l'intérieur d'un Variant et qu'il soit déclaré normalement.

Celà voudrait-il dire que d'autres déclarations on pourrait redimensionner d'autres indices? (à vérifier)

A+

[iclic]

Bonjour,



Oui c'est exact sauf que...
Trouvé dans la MSDN


Celà voudrait-il dire que d'autres déclarations on pourrait redimensionner d'autres indices? (à vérifier)
Ai vérifié: Uniquement dernière dimension
A+