Discussion :

[steph78630]

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 :

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

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

[ProgElecT]

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 :

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

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.

[steph78630]

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

[omen999]

salut,

et sinon la solution de la ...

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

exemple :

Code :

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

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

[steph78630]

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 !