Afficher automatiquement l'euro dans textbox

Bonjour a toutes et tous, forum bonjour

Je souhaiterai svp que lorsque j'entre une somme dans mon TextBox2

Ex: 1 175,12 € que le symbol de l'euro s'affiche automatiquement, une fois que le deuxième chiffre après la virgule se soit afficher dans le TextBox2

j'ai vu ça trainer sur le net (pas retrouver ou bien sur) et si possible je souhaiterai le reproduire dans mon programme.

Merci a vous, bon app et un bon Dimanche a tous

Cdlt Ray

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next

    If InStr("1234567890,-.€", Chr(KeyAscii)) = 0 Then
       KeyAscii = 0
    End if
End Sub

Salut Eliot

Voici un code qui fonctionne

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If InStr("1234567890,-.€", Chr(KeyAscii)) = 0 Then KeyAscii = 0
  ' Si le textbox contient une virgule
  If InStr(1, Me.TextBox2, ",") Then
    ' Si la longeur après la virgule et de 2
    If Len(Mid(Me.TextBox2, InStr(1, Me.TextBox2, ","))) = 2 Then
      ' On affecte un format au textbox + le dernier code envoyé
      Me.TextBox2.Value = Format(Me.TextBox2 & Chr(KeyAscii), "#,###.## €")
      KeyAscii = 0  ' empêcher le doublon
    End If
  End If
End Sub

A+

Bonsoir BrunoM45

Merci de ta réponse et pour le petit code

qui d'ailleurs fonctionne très bien

Rien a dire, ha si quand mème, grand merci a toi bien sur et la petite note

Bonne soirée avec tous mes remerciements

Cordialement Raymond