problème sur valeur numérique

Bonjour, voici un code qui fonctionne mais où il manque un petit quelque chose:

Code:

---

1 2 3 4 5 6

Private Sub TextBox_ht_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)   'seule une valeur numérique peut être entré If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0   End Sub

---

Ce code me sert à indiquer un prix avec deux chiffres après la virgule. Le souci c'est que je peux mettre plus d'une virgule et plus de deux chiffres derrière celle-ci.

D'où ces questions :
- comment respecter le fait de mettre une seule virgule et deux chiffres après?
- comment mettre deux zéro après la virgule dans le cas d'un prix rond (ex :190.00€)?

PS : Ici il s'agit d'un point car je trouve ça plus pratique que la virgule au niveau de la frappe.

Bonjour,
Je te recommande cette saine lecture signée Didier GONARD (Monsieur) particulièrement recommandée dans ton cas de figure.
Tuto particulièrement détaillé et explicite...
A+

Bonjour,

Code:

---

1 2 3 4

Private Sub TextBox_ht_LostFocus() TextBox_ht = IIf(IsNumeric(TextBox_ht), Format(TextBox_ht, "###0.00"), "") End Sub

---

Si le textbox est dans un userform, utiliser l'evenement exit.

ctac

Le code exécuté ci-dessous permet de ne mettre que des chiffre et un seul point dans ma chaine (il remplace la virgule ex: 12.5 = 12,5). C'est une partie de ce que je cherche à faire.

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox_ht_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)   'seule une valeur numérique peut être entré If InStr("0123456789.", Chr(KeyAscii)) = 0 Or InStr(TextBox_ht.Value, ".") <> 0 And Chr(KeyAscii) = "." _ Then KeyAscii = 0: Beep   End Sub

---

Ca ne beepe pas (c'est pas important c'est juste une remarque)

Le problème de ce code c'est que j'arrive à mettre une infinité de chiffre derrière ce point alors que je voudrais ne mettre que 2 chiffres.

Ce que je cherche aussi c'est que si je tape le point directement sans rien devant, un zéro se mette automatiquement devant (cela ne devrait jamais arrivé vu les nombres à mettre mais sait on jamais) et pour finir ajouter à mon code la partie de ctac_ dans le cas ou j'ai un nombre rond.

Bonjour,

Je vais commencer par une petite question :
As-tu compris ce code?

Code:

---

1 2 3 4

Private Sub TextBox_ht_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'seule une valeur numérique peut être entré If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0 End Sub

---

Ligne par ligne, cela nous dit :

Code:

---

1 2 3

Private Sub TextBox_ht_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Lorsque l'on appuie sur une touche (keypress), 'le curseur clignotant dans le textbox (TextBox_ht_)

---

Code:

---

1 2 3

If InStr("0123456789.", Chr(KeyAscii)) = 0 'Si le caractère saisi (donc la touche pressée) 'ne fait pas partie de la chaine "0123456789."

---

Code:

---

Then KeyAscii = 0 'Alors la saisie est annulée.

---

Maintenant, fort de cela, tu peux faire la même chose pour :

Citation:

---

Ce que je cherche aussi c'est que si je tape le point directement sans rien devant, un zéro se mette automatiquement devant

---

Code:

---

1 2 3 4 5 6

Private Sub TextBox_ht_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'seule une valeur numérique peut être entré If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0 'Si le caractère saisi est le 1er ET qu'il s'agit d'un point alors j'ajoute 0 devant If Len(TextBox_ht) = 1 And TextBox_ht = "." Then TextBox_ht = "0." End Sub

---

Citation:

---

je voudrais ne mettre que 2 chiffres après la virgule.

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub TextBox_ht_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'seule une valeur numérique peut être entré If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0 'Si le caractère saisi est le 1er Et qu'il s'agit d'un point alors j'ajoute 0 devant If Len(TextBox_ht) = 1 And TextBox_ht = "." Then TextBox_ht = "0." 'S'il existe un point dans le TextBox : InStr(TextBox_ht.Value, ".") <> 0 'et que la longueur de la chaine contenue dans le textbox : Len(TextBox_ht.Value) 'est supérieure à la place du . dans la chaine + 1 > InStr(TextBox_ht.Value, ".") + 1 'alors on annule la saisie : Then KeyAscii = 0 If InStr(TextBox_ht.Value, ".") <> 0 And Len(TextBox_ht.Value) > InStr(TextBox_ht.Value, ".") + 1 Then KeyAscii = 0 End Sub

---

J'espère t'avoir aidé et surtout aidé à comprendre le code pour que tu puisses le reproduire seul.
A+

merci

En fait j'ai encore un petit souci avec le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub TextBox_ht_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)   'seule une valeur numérique peut être entré If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0   'Si le caractère saisi est le 1er Et qu'il s'agit d'un point alors j'ajoute 0 devant If Len(TextBox_ht) = 1 And TextBox_ht = "." Then TextBox_ht = "0."   'S'il existe un point dans le TextBox : InStr(TextBox_ht.Value, ".") <> 0 'et que la longueur de la chaine contenue dans le textbox : Len(TextBox_ht.Value) 'est supérieure à la place du . dans la chaine + 1 > InStr(TextBox_ht.Value, ".") + 1 'alors on annule la saisie : Then KeyAscii = 0 If InStr(TextBox_ht.Value, ".") <> 0 And Len(TextBox_ht.Value) > InStr(TextBox_ht.Value, ".") + 1 Then KeyAscii = 0

---

Le souci n'est pas dans le code lui-même car cela fait exactement ce que je cherche (merci pijaku) mais en testant je me suis rendu compte qu'il doit manquer une ligne d'instruction.

En fait mais valeur numérique comporte un point pour être un nombre à virgule. Et là je peux rentrer deux virgules après la première.

J'ai bien essayé des choses mais ça ne fonctionne pas donc j'appelle encore à l'aide.

Problème résolu garce au lien situé plus haut.

voici la ligne au cas où :

Code:

---

If InStr(TextBox_ht.Value, ".") <> 0 And Chr(KeyAscii) = "." Then KeyAscii = 0

---