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
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