Bonjour,
autre proposition à mettre dans ton UserForm2 :
Private Sub TextBox3_Change()
Dim tmp As String
If InStr(TextBox3, "^") > 0 Then
If Split(TextBox3, "^")(1) <> "" Then
tmp = Replace(Me.TextBox3, ",", ".")
Me.TextBox4 = Split(tmp, "^")(0) ^ Split(tmp, "^")(1)
Else
Me.TextBox4 = ""
End If
Else
Me.TextBox4 = ""
End If
End Sub
Saisir l'opération sous la forme: 2^3
eric
Edit: si tu pouvais éviter de faire des doublons à l'avenir stp. Inutile que d'autres personnes cherchent si tu as eu la solution ailleurs.
Tu peux tout simplement mettre un lien vers ta nouvelle question si tu veux solliciter qcq'un dans un autre fil.
Merci