Bonsoir
Pour le fun, et tiré par les cheveux
Utilisation de instr et instrev
Sub deb()
tour = 1
n = 1
With ActiveCell
phrase = .Value
k = InStr(1, phrase, "=")
valeur = Left(phrase, k - 1)
While n <> 0
n = InStr(1, phrase, ")")
If n = 0 Then Exit Sub
n1 = InStrRev(phrase, "(", n)
t = Mid(phrase, n1 + 1, n - n1 - 1)
n3 = InStrRev(phrase, "(", n1 - 1)
s = "_" & tour
If n3 = 0 Then n3 = InStrRev(phrase, "=", n - 1): s = ""
op = Mid(phrase, n3 + 1, n1 - n3 - 1)
v = valeur & "_" & s & op & "/" & t
Call ecriture(valeur & s, op, t)
'MsgBox v
phrase = Left(phrase, n3) & valeur & "_" & tour & Right(phrase, Len(phrase) - n)
tour = tour + 1
'MsgBox phrase
Wend
End With
End Sub
Sub ecriture(v, o, t)
n = InStr(1, t, ",")
e1 = Left(t, n - 1)
e2 = Right(t, Len(t) - n)
MsgBox v & " " & e1 & " " & o & " " & e2
End Sub