Discussion :

[marsupilami34]

Bonjour

Je déclare mon tableau de la manière suivante

Code :

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

1
2
 
Dim tablo() as variant

En effet, au cours de ma procédure, j'aimerai lui ajoute rau fur et à mesure des lignes
Tout d'abord, je le déclare avec 1 ligne et je lui insère des valeurs

Code :

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

1
2
 
Redim tableau(1,3)

Par contre il me faut ensuite lui rajouter une autre ligne et pour cela, j'effectue

Code :

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

1
2
 
Redim tableau(2,3)

Ca m'ajoute bien une autre ligne mais je perds les valeurs précédente.

Quelle est donc la bonne méthode pour redimensiuionner un tableau tout en gardant les valeurs précédentes ?

Merci d'avance pour votre aide.

A+

[AlainTech]

Voir, dans l'aide en ligne, Redim Preserve.

La seule chose importante, c'est que tu ne peux modifier que la dernière dimension.

[Catbull]

Avant de poster un message, vérifie la cohérence du code que tu nous donnes :

Code :

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

1
2
3
4
 
Dim tablo() as variant
 
Redim tableau(1,3)

Cela evitera bien des soucis de compréhension.

[marsupilami34]

Bon, je viens de tester, les déclarations sont cohérentes, mais j'ai le message d'erreur suivant :

L'indice n'appartient pas à la sélection

Je dimensionne au départ mon tableau

Code :

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

1
2
 
Dim tablo(1,3)

Puis pour ajouter la ligne je fais

Code :

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

1
2
 
Redim Preserve tablo(2,3)

et c'est là que j'ai mon erreur

[jmfmarques]

Un tel message, marsup, intervient sur une ligne qui ne peut être l'une des 2 lignes (dim et redim) que tu nous montres ...
Sur quelle ligne de code celà se passe-t-il donc ?

[Catbull]

Il n'est pas possible de fixer la taille d'un tableau dynamique au moment de la 'compilation'.

Donc la déclaration doit être : Dim tablo() et non Dim tablo(1,3).

[marsupilami34]

Le message d'erreur apparait lorsque je fais

Code :

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

1
2
 
Redim Preserve tablo(2,3)

[Catbull]

Présente nous ton code et dis nous quel est le message d'erreur. Pour info cela fonctionne chez moi :

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
16
17
18
19
20
Public Sub Main()
    Dim Tableau() As Variant
 
    ReDim Preserve Tableau(1, 2)
 
    Tableau(0, 0) = 0
    Tableau(0, 1) = 1
    Tableau(0, 2) = 2
    Tableau(1, 0) = 10
    Tableau(1, 1) = 11
    Tableau(1, 2) = 12
 
    ReDim Preserve Tableau(1, 3)
 
    Tableau(1, 3) = 13
    Tableau(1, 3) = 13
 
    Debug.Print Tableau(0, 2)
    Debug.Print Tableau(1, 3)
End Sub

[marsupilami34]

En fait je me sert de la fonction Ubound

Code :

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

1
2
 
Redim tablo(1,5)

Je remplis ensuite mon tableau puis

Code :

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

1
2
 
Redim Preserve tablo(UBound(tablo)+1,5)

C'est sur cette ligne que j'ai mon erreur

[Catbull]

Preserve ne conserve que la dernière dimension du tableau. Pour plus de clareté, utilise l'argument facultative de la fonction UBound afin de préciser à quelle dimension du tableau tu accedes.

[random]

la dernière dimensiondonc
Redim Preserve tablo(2,3)
n'est pas valide
Redim Preserve tablo(1,2317)
est valide

intervertit tes dimension
dim (3,1)
puis
redim(3,xx)

[marsupilami34]

Super ca marche comme ca

Merci