problème de déclaration de tableau

[sylv900]

salut à tous
j'ai récupérer une macro ou les tableau sont définis ainsi :
Dim X(15, 40000) As Double

le fait d'entrer 40000 rélenti considérablement la durée de la macro alors que la valeur voulu est le nombre de ligne remplies dans une feuille, j'ai alors essayé ceci :
N = ActiveSheet.UsedRange.Rows.Count
Dim X(15, N) As Double

mais excel m'envoi une erreur du type : constante requise!!!

est-il possible de remplacer 40000 par une variable correspondant à mon nombre de ligne?

d'avance merci
sylvain

 

[Shining Hawk]

Salut Sylvain,

je pense qu'avec l'instruction ReDim ca doit marcher.

exemple (non testé):

Dim X(15, 1)
N = ActiveSheet.UsedRange.Rows.Count
ReDim X(15, N)

Tchô

 

[sylv900]

merci Shining Hawk mais ca ne marche pas : tableau dèjà dimentionné!

retchô

 

[Shining Hawk]

Si ca ne marche pas, essaye de faire la déclaration en global:

Dim X(15, 1)

Sub truc()
N = ActiveSheet.UsedRange.Rows.Count
ReDim X(15, N)
End Sub


Cette fois, je suis sur que ca marche...(je viens de le tester)
Désolé...
:whistle:

 

[Minick]

Salut,

Ou tout simplement dans la meme procedure:

Dim X() as Double
Dim N as Integer ' juste pour pas oublier de le declarer

N = ActiveSheet.UsedRange.Rows.Count

ReDim X(15, N) as Double

....

@+

Message édité par: Minick, à: 16/08/2005 18:03