Public Function Calcule(cFormule as String) as Variant

End Function

Calcule = Sqr(4)

? calcule("")

Calcule = sqr(4)

Calcule = Eval("sqr(4)")

? Calcule("")

Eval("msgbox ""bonjour""")

Eval("msgbox(""Bonjour"")")

Calcule = Eval("Sqr(4)")

Calcule = Eval(cFormule)

? calcule("sqr(4)")

? calcule("sqr(8)")
? calcule("Year(Date)-1")

Public Function LireFormules(idFormule As Integer) as string
' idFormule est le n° de la formule dans la table
'Auteur  Fabrice CONSTANS (loufab) http://loufab.developpez.com 2009
	Dim strCrit As String
	Dim rst As Recordset                                ' déclaration de l'objet
	Set rst = CurrentDb.OpenRecordset("tblFormules", dbOpenSnapshot)   ' initialisation du recordset
	With rst
    	strCrit = .Fields(0).Name & " = " & idFormule		'composition du critère de recherche
    	.FindFirst strCrit					                ' recherche
    	If Not .NoMatch Then Debug.Print Calcule(.Fields(1))	' trouve et affiche le résultat
   		.close  						' fermeture
	End With
	Set rst = nothing					' libération
End Function

? LireFormules(1)
? LireFormules(2)

Function Revalorise(Montant As Currency, DateOrigine As Date, DateActuelle As Date, iFormule As Integer) As Currency
'Montant est le montant à revaloriser
'DateOrigine date d'origine ou date la plus ancienne
'DateActuelle date de revalorisation
'iFormule est le N° de la formule
'Auteur  Fabrice CONSTANS (loufab) http://loufab.developpez.com 2009

On Error GoTo Err_Revalorise

Dim fml As String           ' la formule
Dim FrstCar As Integer      ' Numero du caractère traité
Dim Indice As String		' abreviation de l'indice dans la formule
Dim valindice As Double	    ' 

fml = LireFormule(iFormule)            ' on recupère la formule dans la table

fml = Replace(fml, "_Montant", Montant) ' on remplace le _Montant par sa valeur

Do
    FrstCar = 1
    While Not Mid(fml, FrstCar, 1) = "_"         ' fait défiler les chiffres, signe jusqu'au "_"
        FrstCar = FrstCar + 1
    Wend
    
    FrstCar = FrstCar + 1                        ' on se positionne sur le nom de l'indice
    
    While Mid(fml, FrstCar, 1) Like "[A-Z]"      ' tant que c'est une lettre on traite le nom de l'indice
        Indice = Indice & Mid(fml, FrstCar, 1)   ' on récupère l'indice
        FrstCar = FrstCar + 1
    Wend
    Indice = Indice & Mid(fml, FrstCar, 1)       ' pour la terminaison
                                                        ' 0 = indice ancien -> contrat
                                                        ' 1 = indice actuel -> tbl_indice
   
    If Right(Indice, 1) = 1 Then                 ' chercher l'indice 1 étant le plus ancien
       valindice = DLookup("Indice", "tblIndices", "Mois = " & Month(DateActuelle) & " And Annee=" & Year(DateActuelle))
    Else                          ' Indice contrat
       valindice = DLookup("Indice", "tblIndices", "Mois = " & Month(DateOrigine) & " And Annee=" & Year(DateOrigine))
    End If
    ' remplace dans la formule
    fml = Replace(fml, "_" & Indice, valindice, , 1) ' remplace 1 seule fois l'indice et son caractère de répérage.
    
    Indice = ""

Loop While InStr(1, fml, "_") > 0    'Il n'y a plus d'indice à traduire

fml = Replace(fml, ",", ".")   'remplace chaque virgule par un point
Revalorise = Calcule(fml)      ' retourne le résultat de l'opération.

Exit Function

Err_Revalorise:
If Err = 94 Then
   Revalorise = 0
   Exit Function
ElseIf Err = 6 Then
   fml = Replace(fml, ",", ".")   'remplace chaque virgule par un point
   Revalorise = Calcule(fml)
Else
   MsgBox Err & " -- " & Err.Description
   Revalorise = 0
   Exit Function
End If
End Function

? revalorise(100,"1/6/2007","1/6/2008",4)
105,5
? calcule("year(cdate(""2/8/2008""))-1")
2007
? calcule("replace(""c_est pas bon"",""_"",chr(149))")

SELECT tblContrat.typeFormule, tblContrat.Montant, tblContrat.DernierReval, 
Revalorise([Montant],[DerniereReval],DateAdd("yyyy",1,[DerniereReval]),[TypeFormule])+tblContrat.Montant AS NouveauTarif
FROM tblContrat;