VBA TextBox.Inscrire un sigle

Bonjour,
J'aurai aimé savoir si vous saviez comment coder en VBA ceci :

J'aimerai avoir une TextBox avec par défaut la valeur : €. Il s'agit d'une TextBox pour rentrer une somme d'argent donc j'aimerai que le sigle apparaisse dès l'apparition de la UserForm mais qu'on ne puisse pas le supprimer : cad si l'utilisateur clique dessus, il ne peut qu'inscrire un nombre et ne peut pas supprimer le sigle.


Cdlt

Bonjour,

Tu nous en dis peu (nous ne savons par exemple pas s'i tu dois ou non gérer des décimales et sous quelles forme)
Je vais donc me contenter de te mettre sur la voie par ce petit exercice (ici, nous obligeons un entier suivi d'un signe $)

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub TextBox1_Change() Static anc As String If anc = "" Then anc = "$" filtre = String(Len(TextBox1.Text) - 1, "#") & "$" If Not TextBox1.Text Like filtre Then TextBox1.Text = anc Else anc = TextBox1.Text End If End Sub

---

Te voilà sur une piste. A toi de t'en servir, de l'agrémenter à ton goût, de la compléter, etc...

Voici quelques explications :

Quelque soit la valeur du chiffre je souhaite avoir la sigle €.
Celui ci doit être présent au moment de l'apparition de la Userform dans la TextBox (je code donc dans Useform Initialize).

Et ce sigle ne doit pas pouvoir se supprimer et on doit pouvoir inscrire une valeur dans la TextBox qui sera suivi automatiquement du sigle €.



Je vais tester ton code.Merci