Remplacement point et virgule dans une TextBox (VBA)

Bonjour à vous,

Comme expliqué dans le titre, j'ai créé un formulaire dans Excel pour remplir un tableau.
Dans ce tableau, je souhaite insérer ma colonne prix via mon formulaire.
J'ai presque réussi à un détail près.

Après quelques recherches sur le forum j'ai trouvé ce bout de code qui ma permis d'avancer :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit   Const entrees_decimales_permises = ".,0123456789" & vbCr & vbBack Const Point = "." Const Virgule = ","   Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = Asc(Point) Then If InStr(TextBox1, Virgule) = 0 Then KeyAscii = Asc(Virgule) Else KeyAscii = 0 End If ElseIf InStr(entrees_decimales_permises, Chr(KeyAscii)) = 0 Then KeyAscii = 0 ElseIf InStr(TextBox1, Virgule) > 0 And KeyAscii = Asc(Virgule) Then KeyAscii = 0 End If End Sub

---

Mon unique problème, c'est que la macro ne permet qu'un seul chiffre après la virgule. Je souhaiterais en avoir deux.
Avez-vous une idée de la modification à faire ?

Mon OS est configuré en Français.

Merci à vous.
Baladasha.

Bonsoir,

Si j'ai bien compris votre besoin, vous avez un formulaire de saisie et vous souhaitez changer le point par une virgule.
Pourquoi ne pas faire un replace tout simplement.
On va récupérer le texte du TextBox1 et on va le convertir

Code:

---

resultat_sans_code = Replace(TextBox1, ".", ",")

---

En espérant vous avoir aidé.
Cordialement

Sebing

Bonjour

Code:

---

1 2 3 4 5

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 44 Then KeyAscii = 46 ' on remplace la virgule par le point If TextBox1 = "" And KeyAscii = 46 Then KeyAscii = 0 If Not Chr(KeyAscii) Like "[01,2,3,4,5,6,7,8,9,.]" Or Right(TextBox1, 3) Like ".##" Then KeyAscii = 0 ' que des nums et 2 decimales End Sub

---