[Excel-VBA]Redimensionnement de tableau

Version imprimable

25/08/2006, 14h39
marsupilami34

[Excel-VBA]Redimensionnement de tableau
Bonjour

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

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:

1 2 Redim tableau(1,3)
Par contre il me faut ensuite lui rajouter une autre ligne et pour cela, j'effectue
Code:

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+
25/08/2006, 14h42
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.
25/08/2006, 14h56
Catbull
Avant de poster un message, vérifie la cohérence du code que tu nous donnes :
Code:

1 2 3 4 Dim tablo() as variant Redim tableau(1,3)
Cela evitera bien des soucis de compréhension.
25/08/2006, 15h20
marsupilami34
Bon, je viens de tester, les déclarations sont cohérentes, mais j'ai le message d'erreur suivant :

Citation:

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

Je dimensionne au départ mon tableau
Code:

1 2 Dim tablo(1,3)
Puis pour ajouter la ligne je fais
Code:

1 2 Redim Preserve tablo(2,3)
et c'est là que j'ai mon erreur
25/08/2006, 15h26
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 ?
25/08/2006, 15h28
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).
25/08/2006, 15h28
marsupilami34
Le message d'erreur apparait lorsque je fais
Code:

1 2 Redim Preserve tablo(2,3)

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

Code:

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

25/08/2006, 16h10
marsupilami34
En fait je me sert de la fonction Ubound
Code:

1 2 Redim tablo(1,5)
Je remplis ensuite mon tableau puis
Code:

1 2 Redim Preserve tablo(UBound(tablo)+1,5)
C'est sur cette ligne que j'ai mon erreur
25/08/2006, 16h24
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.
25/08/2006, 16h45
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)
28/08/2006, 17h16
marsupilami34

Super ca marche comme ca:D

Merci