XL 2016 Textbox au format euro

Bonjour Massjipe, le forum
voir avec cela
TextBox2.Value = Format(Textbox2.Value, '0.00 €')
TextBox2.Value = Format(Textbox2.Value, '0.00' & ' €')

Bonjour
CA ne fonctionne pas Erreur de compilation Attendu : Expression au niveau apostrophe '
Par contre le code on le place ou
Merci

Bonjour
Bonjour le Fil ,le Forum
Personnellement , je ne mets pas en forme dans le TextBox , car si l'on récupére le Contenu du TextBox ce n'est plus une somme mais un Texte car "€" d'affiché dans le TextBox
voir image
Bonne journée
jean marie

Bonjour Massjipe, piga25,le forum

Tu as deux possibilités, si tu veux le format "€" dans le TextBox ou simplement dans la feuille

dans le TextBox et la feuille

Private Sub TextBox1_AfterUpdate()
TextBox2 = Format(TextBox2, "#,##0.00 €")

et dans CommandButton1_Click
With Sheets("Liste")
.Range("H" & iRL) = Me.txtQte 'Référence
.Range("I" & iRL) = Me.TextBox1 'Désignation
.Range("J" & iRL) = Me.TextBox2 'Prix
Unload Me

End With


uniquement dans la feuille

rien dans TextBox_AfterUpdate()

Private Sub CommandButton1_Click()

With Sheets("Liste")
.Range("H" & iRL) = Me.txtQte 'Référence
.Range("I" & iRL) = Me.TextBox1 'Désignation
.Range("J" & iRL) = Format(Me.TextBox2, "#,##0.00 €")'Prix
Unload Me

End With
End Sub


Cdt

Re
Uniquement dans la feuille si je rentre un chiffre sans virgule ça fonctionne mais des que je rentre ex 2.50 il affiche dans la feuille 0.12€
Idem dans le TextBox et la feuille

RE

remplace le point du pavé numérique comme ceci

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub

Bonjour le fil,
Une autre proposition, pour avoir € il suffit de l'ajouter après . . . .789€
mais je le déconseille à moins d'utiliser différentes devises. Il faudra supprimer le € avant de traduire avec cdbl(textbox1) pour avoir du numéric
Bruno
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'que numéric et 1 seule virgule
If KeyAscii = 46 And Not TextBox1 Like "*,*" Then KeyAscii = 44: Exit Sub
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub