Textbox et euros

[FJPT]

Bonjour à toutes et à tous

Petit sujet juste pour amélioration personnelle.

J'ai un USF où je saisis des sommes en euros que je stocke dans des cellules que je réaffiche ensuite à la demande. J'ai eu pas mal de difficultés à mettre tout cela en forme et, grâce aux recherches dans ce forum, je suis arrvé à la chose suivante :

Pour la première saisie j'ai essayé avec Textbox-change mais n'y suis arrivé qu'avec Textbox-Afterupdate :

Private Sub TextBox15_AfterUpdate()
TextBox15 = Format(Val(TextBox15), "# ### ###.#0 €")
End Sub

Pour le stockage :

Sheets("Registre").Range("AA" & ADR) = CCur(TextBox15)

Pour le réaffichage :

TextBox15 = Format((Sheets("Registre").Range("AA" & ADR)), "# ### ###.#0 €")

Y avait-il une manière différente ou plus technique de traiter cela ?

Il n'y a pas d'urgence.

Merci d'avance pour toutes les suggestions.

Bon week-end à toutes et à tous.

Cordialement.

JP

 

[Bebere]

Re : Textbox et euros

bonjour Fjpt
tu peux essayer

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1 = Me.TextBox1 & "0.00 €"
End Sub

TextBox15 =Sheets("Registre").Range("AA" & ADR.Text
à bientôt

 

[FJPT]

Re : Textbox et euros

Bonsoir Bebere

Navré d'avoir un peu tardé mais je m'étais absenté.

Je te remercie pour ta réponse et je vais tester ce que tu me donnes.

Bonne soirée.

Cordialement.

JP