[VBA/EXCEL] Problèmes avec des tableaux dynamiques à deux dimensions et ReDim

Version imprimable

20/02/2007, 10h43
skystef

[VBA/EXCEL] Problèmes avec des tableaux dynamiques à deux dimensions et ReDim

Bonjour,

J'ai un soucis avec des tableaux dynamique à deux dimensions. Je les ait déclarer comme suit dans mon programmes :
Dim tab() As Variant

puis dans mon algo, je récupère un entier et je fait : Redim tab(int,int). J'ai vérifié que mon entier avait bien une valeur différente de null et de 0.

Le reste de mon algo alimente ce tableau. Malheureusement, il semble qu'aucunne données ne soit inscrite dans le tableau. Si je mets des tailles fixes : Dim tab(100,100) par exemple, mon programme fonctionne correctement.

J'ai également vérifié que je rentrais pas plus de valeur que le tableau était grand (pas de débordement, si mon entier vaut 30, je ne peux pas rentrer plus de 30 valeurs).

Je précise que le Redim se fait en début de programme quand le tableau ne contient aucune valeur (pas d'écrasement donc).

Quelqu'un peut-il m'aider?
20/02/2007, 10h52
Invité

Bonjour

1 - Dans un tableau on ne peut redimensionner que la derniére valeur
2 - Ton tableau à 2 dimensions, donc tu dois fixer la premiére et redim la derniére

Starec

bien sur que cela fonctionne
Code:

1 2 3 4 5 6 7 8 9 10 Function testredim(ligne, colonne) As Boolean Dim a As Variant Dim b() As Variant ReDim a(1 To ligne, 1 To colonne) MsgBox ("tableau crée avec " & UBound(a, 1) & " lignes et " & UBound(a, 2) & " colonnes") ReDim b(1 To ligne, 1 To colonne) b(ligne, colonne) = "tableau crée avec " & UBound(b, 1) & " lignes et " & UBound(b, 2) & " colonnes" MsgBox (b(ligne, colonne)) End Function
cherche ton erreur ailleurs

nb Si vous utilisez le mot clé Preserve, vous ne pouvez redimensionner que la dernière dimension du tableau. Mais sinon on peut redimer (pardon) ce qu'on veut

20/02/2007, 11h33
Invité

Re

Merci Random, comme j'utilise toujours mes tableaux avec PRESERVE, je ne savais pas. Je dormirais encore moins bête ce soir.

Starec

on peut même faire un redimetpreserve sans problème

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
26
27
28
29
 
Function redimetpreserve(ligne, colonne) As Boolean
Dim boucle1 As Long, boucle2 As Long
Dim a As Variant
Dim b() As Variant
ReDim a(1 To ligne, 1 To colonne)
For boucle1 = 1 To ligne
For boucle2 = 1 To colonne
a(boucle1, boucle2) = ((boucle1 - 1) * colonne) + boucle2
Next boucle2
Next boucle1
For boucle1 = 1 To ligne
For boucle2 = 1 To colonne
Debug.Print (a(boucle1, boucle2))
Next boucle2
Next boucle1
ReDim b(ligne * 2, colonne * 2)
For boucle1 = 1 To ligne
For boucle2 = 1 To colonne
b(boucle1, boucle2) = (a(boucle1, boucle2))
Next boucle2
Next boucle1
a = b
For boucle1 = 1 To ligne
For boucle2 = 1 To colonne
Debug.Print (a(boucle1, boucle2))
Next boucle2
Next boucle1
End Function

Citation:
Envoyé par random
bien sur que cela fonctionne
Code:

1 2 3 4 5 6 7 8 9 10 Function testredim(ligne, colonne) As Boolean Dim a As Variant Dim b() As Variant ReDim a(1 To ligne, 1 To colonne) MsgBox ("tableau crée avec " & UBound(a, 1) & " lignes et " & UBound(a, 2) & " colonnes") ReDim b(1 To ligne, 1 To colonne) b(ligne, colonne) = "tableau crée avec " & UBound(b, 1) & " lignes et " & UBound(b, 2) & " colonnes" MsgBox (b(ligne, colonne)) End Function
cherche ton erreur ailleurs

nb Si vous utilisez le mot clé Preserve, vous ne pouvez redimensionner que la dernière dimension du tableau. Mais sinon on peut redimer (pardon) ce qu'on veut
J'ai déclaré mes tableaux comme suit : tab() as variant etc...

puis avant de commencer à les remplir je fais :

ReDim tabFormation(1 To nbColab, 1 To nbColab) As Variant
ReDim tabMaladie(1 To nbColab, 1 To nbColab) As Variant
etc...

nbColab = 30 dans mon programme.

Eh bien si je veux inserer une valeur dans tabFormation(5,0) : problème d'indice.

20/02/2007, 17h00
random

bien si je veux inserer une valeur dans tabFormation(5,0)
hum hum
ReDim tabMaladie(1 To nbColab, 1 To nbColab) As Variant
le 5,0 n'existe pas essaye 5,1 on sait jamais :D :D :D