Discussion :

[Scritch852]

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

Code :

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

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 :

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

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 :

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

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

Et dans la sub LaProc

Code :

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

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 :

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

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 :

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

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 :

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

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 :

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

this["routine" + i]

tout simplement!
Comment est-ce donc en VBA ?

[ouskel'n'or]

Code :

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

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