Discussion :

[vivi4561]

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

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vivi4561]

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