bonjour

une approche pour formater tes textboxs avec " €"

la meme sub pour 3 textbox dans l'userform FormModif

Private Sub TxtPR_Change()
    monaie TxtPR
End Sub

Private Sub TxtPRA_KeyPress(ByVal keyascii As MSForms.ReturnInteger)
    monaie TxtPRA
End Sub

Private Sub TxtPV_KeyPress(ByVal keyascii As MSForms.ReturnInteger)
    monaie TxtPV
End Sub

Sub monaie(ByVal ctrl As Object)
    Dim txt$
    txt = Replace(Replace(ctrl, " ", ""), "€", "")
    If txt Like "*[A-z]*" Then txt = ""
    If UBound(Split(txt, "€")) > 1 Then txt = ""
    ctrl = txt & " €"
    ctrl.SelStart = InStr(1, ctrl, " €") - 1
End Sub

le séparateur décimal accepté est la virgule