Variables indicées ?

Version imprimable

Salut le forum !

J'ai un petit problème qui à certainement une solution assez simple, à moins que je ne me fourvoie complètement, mais comme je ne sais pas sur quel terme baser ma recherche que ce soit sur le forum ou dans l'aide Excel, je m'en remets à vous !

J'ai 6 variables cat1, cat2... cat6 qui sont calculées de la même façon.
Je m'explique :
Code:

1 2 3 4 cat1 = cat1 + fl.Cells(c2.Row - 2*1, c1.Column) * fl.Cells(c2.Row, 84) cat2 = cat2 + fl.Cells(c2.Row - 2*2, c1.Column) * fl.Cells(c2.Row, 84) ... cat6 = cat2 + fl.Cells(c2.Row - 2*6, c1.Column) * fl.Cells(c2.Row, 84)
N'est-il pas possible de faire quelque chose du genre :

Code:

cat[i] = cat[i] + fl.Cells(c2.Row -2*i, c1.Column) * fl.Cells(c2.Row, 84)

Si oui, comment déclare-t-on la variable ?

Merci pour votre aide !

16/12/2008, 12h32
pgz

Bonjour.

Citation:

Envoyé par ancel17

N'est-il pas possible de faire quelque chose du genre :

Code:

cat[i] = cat[i] + fl.Cells(c2.Row -2*i, c1.Column) * fl.Cells(c2.Row, 84)

Si oui, comment déclare-t-on la variable ?

Merci pour votre aide !

Oui, ça s'appelle un tableau. Par exemple

Code:

Dim cat(1 To 6) as double

PGZ
16/12/2008, 12h43
ancel17

Bonjour pgz, et merci !

Petite précision pour la synthaxe, je note cat(i) ?
16/12/2008, 13h38
pgz

Citation:

Envoyé par ancel17

Bonjour pgz, et merci !

Petite précision pour la synthaxe, je note cat(i) ?

Oui. Par exemple

Code:

cat(i) = cat(i) + fl.Cells(c2.Row -2*i, c1.Column) * fl.Cells(c2.Row, 84)

Avec des parenthèses, pas des crochets.

PGZ

Résolu,

Pour ceux qui galèrent, la synthaxe :
Code:

1 2 Dim cat(6) As Single cat(i) = cat(i) + fl.Cells(c2.Row - 2 * i, c1.Column) * fl.Cells(c2.Row, 84)
Merci pgz !