bonjour je cherche a crée une fonction dynamiquement :

je m'explique

j'ai un tableau avec des formules
mon_tableau = array("a+b","a-b","a*b")

J'aimerai creer dynamique une fonction qui execute la formule choisit
en truc du style

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
18
Private Sub createur_de_function(n As interger)
 
'on dimensionne
dim my_function as function
 
'on recupère la formule
formule = mon_tableau(n)
 
'on ecrit le code de la fonction
code = "Private Sub my_function" & vbNewLine
code = code & "resultat = " & formule & vbNewLine
code = code & "msgbox =" & formule & "=" & resultat & vbNewLine
code = code & "End sub"
 
'affectation du code à la fonction
Set my_function.code = code
 
End Sub
avez vous une idée ?