Bonjour à toutes et à tous les membres,

Déjà merci à Mr FOURGEOT pour accepter mon admission à "myDearFriend! Excel Pages".

Je suis tout à fait débutant au niveau VBA que j'essai de m'améliorer en faisant quelques recherches par ci par là, veuillez donc excuser mes erreurs. 

j'ai besoin de votre aide pour appliquer une valeur numérique et monétaire dans mes différents textbox dans le document que j'ai ajouté en pièce jointe.

Merci d'avance

Salut, tu as pu faire cela ? Je suis débutante aussi et j'ai beaucoup de mal niveau insértion, et j'aurais besoin d'aide si c'est possible, merci.

Bonjour le forum Et à son créateur Didier

Bonjour Matarek, ze9zou9i

   Essaies ceci dans tes procédures de TextBoxs (tu ne peux saisir que des valeurs numériques et le point) : 

Private Sub TxtPR_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not Chr(KeyAscii) Like "[0-9-.]" Then KeyAscii = 0
End Sub

Au départ, code un peu plus long synthétisé par patricktoulon

@+ ericcool

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