Discussion :

[pubbins]

Bonjour,

J'ai un pb quand je redimensionne un tableau dynamique. Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim monday() as date
 
t = 1
ReDim monday(1)
monday(1) = CDate("01/01/1900")
 
'Redimensionne et remplit le tableau
While CDate(AP.Range("D" & t + 2).Value) <> monday(1)
    ReDim monday(t)
    monday(t) = CDate(AP.Range("D" & t + 2).Value)
    t = t + 1
Wend

Mon probleme c'est que quand je redimensionne mon tableau, j'ai l'impression qu'il m'efface toute les valeurs qu'il y a dedans. Est-ce vrai ?

Dans ce cas-la, suis-je oblige de d'abord faire par exemple une boucle while pour determiner la dimension de mon tableau et ensuite de faire une boucle for pour remplir mon tableau ? Ou y a-t-il une autre solution de remplir un tableau tout en le redimensionnant ?

Merci d'avance,

Pubbins.

[pgz]

Bonsoir.

Tu peux utiliser le mot clé Preserve

Code :

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

Redim Preserve ...

Cordialement,

PGZ