Faire apparaitre par défaut €

Bonjour à tous,

Je souhaiterai avoir une macro qui me permettra d'avoir par défaut € dans les textbox après saisi de montants.

Merci d'avance

Bonjour Mor Talla Dieng et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire :
- La charte du forum et notamment :

• Rédigez soigneusement votre demande et choisissez un titre qui résume bien votre demande.
  j'ai donc exceptionnellement modifié votre titre

- Quelques fonctionnalites du forum à connaître

Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- de citer une phrase (" ")
- ou de clôturer un fil lorsque vous avez terminé (V)

Merci pour votre participation

Cordialement

Bonjour le forum

Bonjour & bienvenue Mor Talla Dieng, bonjour BrunoM45

Dans, l'exemple fourni (qui n'est pas de moi) la valeur du TextBox affiche la devise lors de la saisie // On peut modifier la valeur monétaire par toute autre valeur – La saisie est numérique avec La virgule – On peut effectuer des calculs, TextBox = 1456,25 €

Option Explicit

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   Dim X As String
    With TextBox1
        X = Replace(.Value, " €", "")
        Select Case KeyCode
        Case 96 To 105
            If X <> "" Then If Len(Replace(X, Val(Int(X)), "")) >= 3 Then KeyCode = 0: Exit Sub
            X = X & Chr(KeyCode + IIf(KeyCode < 96, 32, -48))
        Case 110, 188: If Not X Like "*,*" Then X = X & ","
        Case 8: X = Left(X, Len(X) - IIf(X <> "", 1, 0))
        Case Else: KeyCode = 0
        End Select
        .Value = X
        If .Value <> "" Then .Value = .Value & " €"
        .SelStart = Len(X)
    End With
    KeyCode = 0
End Sub

Private Sub CommandButton1_Click()
 Range("A10").Value = TextBox1.Text       'Est suffisant
End Sub

Bonjour, si c'est juste le format d'affichage en €uros qui est demandé dans la textbox et aprés la saisie dans une textbox ?

exemple pour la textbox1 l'affichage changera quand vous passerez à la suivante :

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "0.00 €")
End Sub

A écrire avec toutes les textbox concernées par ce même affichage.

Bonjour et merci pour vos réponses. Même j'arrive pas à avoir le résultat escompte. Elles m'ont donné des idées.

Cordialement