---Soumis par Dev Ashish--
Utiliser des variables pour appeler des fonctions.
(Q) Comment appeler une fonction en utilisant le contenu d'une variable à la place du nom de la fonction?
(A) Utiliser la fonction Eval. Si vous fournissez une chaîne à la fonction Eval et que la chaîne contient le nom d'une fonction, Eval retournera l'évaluation de cette fonction. Par exemple, Eval("Chr$(65)") retourne "A".
Aisni, par exemple, dans le code qui suit, si vous appelez fEval avec un "A" comme paramètre, vous recevez comme résultat "***Test That", autrement "***Test This".
'*******Code Start******* Function fEval(status As String) Dim strFunctionName As String Dim x If status = "A" Then strFunctionName = "That()" Else strFunctionName = "This()" End If fEval = Eval(strFunctionName) End Function Function This() As String This= "***Test This" End Function Function That() As String That= "***Test That" End Function '*******Code End**********