Discussion :

[ancel17]

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 :

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

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 :

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

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 !

[pgz]

Bonjour.

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

Code :

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

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 :

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

Dim cat(1 To 6) as double

PGZ

[ancel17]

Bonjour pgz, et merci !

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

[pgz]

Bonjour pgz, et merci !

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

Oui. Par exemple

Code :

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

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

[ancel17]

Résolu,

Pour ceux qui galèrent, la synthaxe :

Code :

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

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 !