problème de déclaration de tableau

sylv900 · 16 Août 2005

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 · 16 Août 2005

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 · 16 Août 2005

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

retchô

Shining Hawk · 16 Août 2005

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 · 16 Août 2005

Salut,

Ou tout simplement dans la meme procedure:

Code:

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

problème de déclaration de tableau

sylv900

XLDnaute Occasionnel

Shining Hawk

XLDnaute Junior

sylv900

XLDnaute Occasionnel

Shining Hawk

XLDnaute Junior

Minick

XLDnaute Impliqué

Discussions similaires