[VBA] Evaluation d'expression (PHP)

[Scritch852]

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!!!

[ouskel'n'or]

Où t'as vu ça ?

Code :

Call Procedure(LeMot)

[Scritch852]

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

[ouskel'n'or]

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 ?

[Scritch852]

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 ?

[ouskel'n'or]

Code :

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

[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
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

[alsimbad]

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

[ouskel'n'or]

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 :

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

[alsimbad]

oops

[alsimbad]

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

[ouskel'n'or]

[Scritch852]

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 ??

[ouskel'n'or]

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