Discussion :

[casius1206]

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 :

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

[Dormeur74]

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 ?

[SfJ5Rpw8]

Utilise la fonction Eval :

voir Comment interpréter une chaîne string ?

Code :

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

1
2
3
4
5
6
7
Dim MonNombre 
Dim MaVar
 
MaVar="Mon" & "Nombre"
MonNombre=123
 
msgbox Eval(MaVar) & " = " &  MonNombre  & "?"