Function Calcul2(c As String)
Dim oRegExp, Res, Item
c = Replace(c, ".", ",")
Set oRegExp = CreateObject("vbscript.regexp")
oRegExp.Pattern = "(\d+,\d+)\*(\d+,\d+)"
Set Res = oRegExp.Execute(c)
Set Item = Res(0)
Calcul2 = Item.submatches(0) * Item.submatches(1)
End Function
Function Calcul3(c As String)
Dim oRegExp
Set oRegExp = CreateObject("vbscript.regexp")
oRegExp.Pattern = ".*(\d+.\d+\*\d+.\d+)"
c = oRegExp.Replace(c, "$1")
Calcul3 = Evaluate("=" & c)
End Function
=(STXT(SUBSTITUE(A1;".";",");TROUVE("*";A1)+1;99)*1)*(STXT(SUBSTITUE(A1;".";",");TROUVE(" ";A1);TROUVE("*";A1)-1-TROUVE(" ";A1))*1)
Function calcul(chaine)
Set obj = CreateObject("vbscript.regexp")
obj.Global = True
obj.Pattern = "([a-z,A-Z,\s,\$])+"
calcul = Evaluate(obj.Replace(Replace(chaine, ",", "."), ""))
End Function