[VBA] Evaluation d'expression (PHP)

Salut za tous. Apapremment, notre ami vba ne veut pas de ce code suivant:

Code:

---

1 2 3 4 5 6 7

For i = 0 To 3   ' Appelle la procédure en fct de i   Call "proc" & i   Next i

---

Certains crieront à l'infamie car Call ne prend pas de String en argument...oui mais alors comment appeler dynamiquement des fonctions Sub, un peu à la manière de PHP ?

Thanis guys pour vos réponses!!!

Où t'as vu ça ?

Code:

---

Call Procedure(LeMot)

---

euh...Pas compris la réponse. En tout cas, ce que tu as écris ne fonctionne pas...

Alors, c'est parce que tu as pris LeMot pour un mot, pas pour une variable. Faut pas prendre le mot au pied de la lettre... ;)

Code:

---

1 2	LeMot = "J'ai pas compris ton problème..." Call LaProc(LeMot)

---

Et dans la sub LaProc

Code:

---

1 2 3

Sub LaProc(QuoiLeMot) Msgbox QuoiLeMot End sub

---

C'est mieux ?
A moinse que tu parles de fonction... Que veux-tu faire ?

Non, mon probleme n'est pas au niveau de l'argument.

En fait j'ai plusieurs sub:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub routine_1   End Sub   Sub routine_2   End Sub   Sub routine_3   End Sub

---

Et je dois les appeler les unes après les autres. Je pourrais faire un :

Code:

---

1 2 3 4 5 6 7 8 9 10

Select Case nb   Case 1 Call routine_1   Case 2 Cass routine_2   etc. End Select

---

Mais j'ai simplifié le problème. Ce que jecehrche a faire, c'est un truc du style:

Code:

---

1 2 3 4 5

For i = 1 to 3   Call routine_ & i   Next i

---

Il appellerait les routine dynamiquement, donc. En Action script, cela est possible en utilisant:

Code:

---

this["routine" + i]

---

tout simplement!
Comment est-ce donc en VBA ?

Code:

---

1 2 3 4

Sub RunLaProc() LaSub = "LaProc" & i Application.Run "'Classeur.xls'!" & LaSub End Sub

---

tiens, j'y arrivais pas avec l'exemple de ouskel, j'ai donc adapté, ça ça marche aussi. mais c'e'st bien la même.

Code:

---

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

Sub proc0() MsgBox "0" End Sub Sub proc1() MsgBox "1" End Sub Sub proc2() MsgBox "2" End Sub Sub Proceduresenboucle() For i = 0 To 2 procedure = "Proc" & i Application.Run procedure Next i End Sub

---

hé même pour info, ça marche aussi

Code:

---

1 2 3 4 5

Sub Proceduresenboucle() For i = 0 To 2 Application.Run "Proc" & i Next i End Sub

---

c'est bien le run le mot magique

Citation:

---

Envoyé par alsimbad

tiens, j'y arrivais pas avec l'exemple de ouskel, j'ai donc adapté, ça ça marche aussi. mais c'e'st bien la même.

Code:

---

1 2 3 4

Sub proc0() procedure = "Proc" & i Application.Run procedure End Sub

---

---

Heureusement qu'on t'a et que tu as précisé qu'il fallait donner une valeur à i :mouarf:

oops

Citation:
alsimbad a écrit :
tiens, j'y arrivais pas avec l'exemple de ouskel, j'ai donc adapté, ça ça marche aussi. mais c'e'st bien la même.

Code :
Sub proc0()
procedure = "Proc" & i
Application.Run procedure
End Sub

Heureusement qu'on t'a et que tu as précisé qu'il fallait donner une valeur à i

hé attend, je vois pas pourquoi je dis oups, j'ai jamais écris ça tel que tu le marque

:aie:

je reviens pour ce petit problème qui est maintenant étendu.

Disons que j'aie 3 tableaux de strings déclarés par:

Code:

---

1 2 3

Dim tabl_1(10) As String Dim tabl_2(10) As String Dim tabl_3(10) As String

---

je voudrais les appeler par le code, mais en utilisant une évaluation d'expression, c'est a dire un truc du style:

Code:

---

1 2 3

For i = 1 To 3 [ "tabl" & i ](1) = "hello" Next i

---

Ce qui aurait pour effet de mettre pour les 3 tableaux du haut la chaine "hello" dans l'indice 1.

Cela est-il possible dans VBA ??

Regarde là
Regarde en bas du code comment ça s'utilise ;)