Recomposer nom d'une variable et recupérer sa valeur

Bonjour,

J'ai un soucis pour débugguer le script ci-dessous dans lequel je cherche à composer le nom d'une variable pour en récupérer le valeur.

Code:

---

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

Dim Team, TeamDCOM, TeamHTTP, cumul TeamDCOM = "Good" TeamHTTP = "Good" IpDCOM = "192.168.1.12" IpHTTP = "192.168.2.12" FluxUnique "DCOM" FluxUnique "HTTP" Function FluxUnique(Flux) a = "Team" cumul=a&flux If cumul = "Good" Then MsgBox "OK" ApplyIP "Ip"&Flux Else MsgBox "KO" End If End Function Function ApplyIP(IP) MsgBox IP End Function

---

Merci de votre aide,

Cordialement,
François.

Ton algo boîte un max pour plein de raisons :
- tes variables sont mal déclarées alors qu'on sait qu'on ne va travailler qu'avec des String
- ton code n'est pas indenté (habitude à prendre au plus vite)
- certaines variables commencent par une majuscule, d'autres non
- tes fins de fonction et la fin de ta routine ne sont pas limitées (End Sub et End Function)
- enfin, le plus grave : si tu entres la chaîne "DCOM" dans ta fonction FluxUnique() et que tu concatènes "TEAM"&"DCOM", ça te donnera toujours "TeamDCOM" et jamais "Good".

Tu peux nous envoyer ton pseudo-code, parce qu'on ne sait pas trop ce que tu veux faire ?

Utilise la fonction Eval :

voir :faq: Comment interpréter une chaîne string ?

Code:

---

1 2 3 4 5 6 7

Dim MonNombre Dim MaVar   MaVar="Mon" & "Nombre" MonNombre=123   msgbox Eval(MaVar) & " = " & MonNombre & "?"

---