bonsoir Marc,
il faut que tu construises une formule sous forme de "string" et que tu la calcules avec la fonction Evaluate.
Essaye ce code :
------------------------------------------------------------------------------------
Dim Formule As String
var10 = 10 ' tu peux mettre
var100 = 100 ' var10 = Range("B1")
var1000 = 1000 '
var99 = 99 '
a = Worksheets("feuil1").Range("A1") ' "and"
b = Worksheets("feuil1").Range("A2") ' "="
c = Worksheets("feuil1").Range("A3") ' "<"
d = Worksheets("feuil1").Range("A2") ' ">"
' calculs avec "<"
Formule = var10 & c & var100
MsgBox Formule & " , c'est " & Evaluate(Formule)
Formule = var1000 & c & var100
MsgBox Formule & " , c'est " & Evaluate(Formule)
' calculs avec "="
Formule = var100 & b & var100
MsgBox Formule & " , c'est " & Evaluate(Formule)
Formule = var99 & b & var100
MsgBox Formule & " , c'est " & Evaluate(Formule)
' calculs avec "et"
Formule = a & "(" & var10 & c & var100 & "," & var1000 & b & var1000 & ")"
MsgBox Formule & " , c'est " & Evaluate(Formule)
Formule = a & "(" & var1000 & d & var99 & "," & var99 & b & var100 & ")"
MsgBox Formule & " , c'est " & Evaluate(Formule)
End Sub
--------------------------------------------------------------------------------------
amicalement