Appel sub depuis variable

Bonjour,

j'ai besoin d'appeler des Sub depuis une variable, ça semble pourtant simple à faire...

Voici un exemple ci-dessous :

- La ligne 3 affiche correctement le contenu de la variable
- La ligne 4 devrait pouvoir appeler chaque Sub mais ça plante (type incompatible) ! :-(

Code:

---

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

For i = 1 to 3 strSub = "Toto" & i ' WScript.Echo strSub strSub ' Appel des sub Next   Sub Toto1 WScript.Echo "Echo depuis sub Toto1" End Sub   Sub Toto2 WScript.Echo "Echo depuis sub Toto2" End Sub   Sub Toto3 WScript.Echo "Echo depuis sub Toto3" End Sub

---

Merci de votre aide,
Cdt, Stéphane

Salut

C'est impossible de procéder par le nom de la sub, strSub est comme indiqué, un string, non pas un objet.
par contre tu peux faire

Code:

---

1 2 3 4 5 6 7 8 9 10

For i = 1 to 3 strSub = "Toto" & i ' WScript.Echo strSub 'ByVal(strSub) ' Appel des sub select case i case 1: Toto1 case 2: Toto2 case 3: Toto3 end select Next

---

Si cela peut te dépanner.

Salut @ProgElecT,

j'avais simplifié le code pour l'exemple mais j'ai en fait dans ma boucle un tableau de plus d'une trentaine de Sub nommés comme on le fait habituellement (du genre "FonctionTruc, FonctionMachin, etc.) et que je souhaite appeler.

Ta solution fonctionnelle de Select Case sur 32 options va bien me dépanner, merci beaucoup !

Si tu as d'autres options possibles, n'hésites pas (peut-être éviter l'énumération des 32 "Case FonctionTruc : FonctionTruc", etc.) !

salut,

et sinon la solution de la :faq:...

et à quoi ça sert qu'omen se décarcasse ? :mouarf:

exemple :

Code:

---

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

For i = 1 to 3 strSub = "Toto" & i set varSub = GetRef(strSub) varSub ' Appel des sub Next   Sub Toto1 WScript.Echo "Echo depuis sub Toto1" End Sub   Sub Toto2 WScript.Echo "Echo depuis sub Toto2" End Sub   Sub Toto3 WScript.Echo "Echo depuis sub Toto3" End Sub

---

Salut @omen999,

ah oui là j'avoue… :-)

Déjà @ProgElecT me dépannait bien avec ce problème qui me bloquait, mais là que dire d'autre que PARFAIT et GRAND MERCIIII Omen999 !

Sujet résolu !