Incrémenter un indice de Variable sans faire de collection

Bonjour,

Je suis nouveau sur le forum, j'ai essayé de chercher la réponse à ma question, mais je n'ai pas réussi à trouver. Voilà mon problème :

J'ai 10 variables : Angle_1 à Angle_10

Et je souhaite faire une boucle du type :

Code:

---

1 2 3 4 5

For i = 1 to 10   Angle_i = i   Next i

---

Je ne souhaite pas faire de collection care mon Angle_i est en faite un paramètre d'une classe que j'ai créée. Je sais que dans certains languages on peut faire une telle chose, est-ce possible en VBA?

Merci infiniment

Aurélien

bonjour
oui on peut

Code:

---

1 2 3 4 5 6 7 8

sub testtabloAngle() dim Angle(10)as variant for i = 1 to 10 Angle(i)= ce que tu veux ici next 'Maintenant on test msgbox Angle(3)' te donne l'angle 3 end sub

---

Merci Patrick,

Cependant ce n'est pas si facile. Pardon.

En fait j'ai une classe cData, avec des paramètres cMatrix qui ont dedans un paramètre angle. Donc en fait j'aimerais ceci:

Code:

---

1 2 3

For i=1 to 10 Data.matrix_i.Angle= ce que je veux ici. Next i

---

Dans certains language on peut écrire matrix_&i, qu'en est il du vba?

Merci

n'ayant pas la classe je ne peut t'en dire plus

tu a donc a l'interieur de ta classe une fonction matrix qui te te ramène a un object sous classe de type Angle

si le mécanisme ne ressemble pas a ca sans le module classe je ne peut rien faire

sinon un exemple de pseudoclasse un truc du genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

type ang angle(1 to 1000) as string end type type as mat matrix as ang end type public data as mat   sub test()   for i= 1 to 10 data.matrix.angle(i)=i*2   next   msgbox data.matrix.angle(5)' te donne le 5 angle end sub

---

Bonjours,
Il n'existe pas de méthode qui permet de lire une variable par son nom.

Sauf un tableau, une collection!
une autre méthode consiste a faire un select case mais suppose un nombre de variable fini

Bonjour,

Merci pour toutes ces informations. Je vais réussir à m'en sortir j'espère.

Bonne journée

Aurélien

Bonjour,

Dans ta classe, plutôt que d'avoir des objets matrix_i, ne peux-tu pas utiliser une collection matrix contenant ces objets?
Ensuite, ceci fonctionnerait (en commençant à 0 ou 1 selon les réglages):

Code:

---

1 2 3

For i=1 to 10 Data.matrix(i).Angle= ce que je veux ici. Next i

---

je suis d'accords avec Promethee25, tu peux même faire une collection de classe

Code:

---

1 2 3

set Angle= new clsmatrix matrix.add Angle,"Matrix_1" set Angle=nothing

---

Code:

---

1 2 3

For i=1 to 10 Data.matrix("matrix_" & i).Angle= ce que je veux ici. Next i

---