Format Textbox as number or Currency Excel 2013

Bonsoir,

J'ai crée sur excel 2010 un formulaire avec des textbox qui ont un format séparateur de millier. Mais quand la feuille est utilisé sur excel 2013(365) il affiche un message d'érreur.
Aussi, quand un collègue utilisant un séparateur de millier différent du mien (les virgule sont les points et vis-vers-ça), il y a encore un autre message d'erreur.

Voici mon code:

Code:

---

1 2 3

Private Sub TextBox9_AfterUpdate() TextBox9 = Format(TextBox9, "#,##0.00") End Sub

---

Quel code utiliser pourque ça marche meme en excel 2013, comment faire pour que ça marche aussi chez les collègues qui ont une formatation differente que la miènne (. = , et , = .)?
Quelqu'un pourrait-il m'aider à ce sujet?

Merci.

Bonsoir,

essayes en adaptant

Code:

---

1 2 3

Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Chr(KeyAscii) = "." Then KeyAscii = Asc(",") End Sub

---

Merci Dom Casefayere,

Mais quand ça marche chez les autres, ça ne marche plus chez moi :?

N'y aurait-il pas un autre code pour completer ou substituer ce dernier?

Rasta Bomboclat

bonjour,

essayes ça :

Code:

---

1 2 3 4 5

Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim sepdec sepdec = Application.International(xlDecimalSeparator) If Chr(KeyAscii) = "." Or Chr(KeyAscii) = "," Then KeyAscii = Asc(sepdec) End Sub

---

La fonction CDbl sert à interpréter les nombres écrits avec les paramètres régionaux :

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox9_AfterUpdate() If IsNumeric(TextBox9.Text) Then TextBox9.Text = Format(CDbl(TextBox9.Text), "#,##0.00") Else Stop End If End Sub

---

Effectivement Docmarti

Tu as vraiment tors d'avoir toujours raison. Ça fonctionne chez toute notre équipe.

Franchement...