Ma textbox n'accepte pas les virgules ..

Bonjour,
Je suis toujours sur ma petite appli de calcul et quelque chose m'echappe :
- je dois rentrer 2 valeurs dans 2 textbox 1 et 2.
- Une troisieme textbox fait la moyenne des 2 valeurs.

Mon calcul fonctionne si je rentre des valeurs entieres et decimales en entrant des . (ex : 42.4 et 46.8) mais si je rentre des virgules à la place des ., il ne prend pas en compte le caractère (ex : 42,2 et 45,4; il fait la moyenne de 43 et 45)

comment faire pour que les virgules soient acceptées ?????

merci

:?
Comment gères tu les entrées utilisateur dans tes TextBoxs.
Quelle formule utilises tu pour le calcul.
Peux tu nous montrer le code que tu utilises actuellement.

je posterai des que possible ce que tu demandes, je ne suis pas au boulot la, neanmoins, en simplifiant,
- j'ai mis la longueur max de la valeur a 6
- Mon format est de type nombre avec 3 decimales
et ceci dans les 3 texbox.

Ensuite, c'est vraiment du basique dans le genre, de tête :

Code:

---

Texta.Texte = (Val (texteb.texte) + Val (textec.texte)) / 2

---

de même, dans une autre textbox qui doit simplement additionner textea et Textb, impossible d'additionner les nombres décimaux. J'ai pourtant mis exactement les mêmes paramètres que les 3 précédantes, donc au moins vec des . cela devrait marcher la, (j'ai par exemple : 4.125 + 3 = 7) 8O8O

En considérant que les TextBoxs renvoie un String, j'ai fait exprès de déclarer les variables Nbr1 et Nbr2 en String

Code:

---

1 2 3 4 5

Dim Nbr1 As String, Nbr2 As String Nbr1 = "4.12552789" Nbr2 = "3" Nbr1 = Replace(Nbr1, ".", ",") MsgBox Round((CSng(Nbr1) + CSng(Nbr2)), 3)

---

Peut être que cette contribution t'intéressera [Trucs & Astuces] Forcer les touches clavier en numérique elle décrit une façon de gère les problèmes de virgule et point.

Bonjour,

En plus, attention à ceci

Citation:

---

De Progelec

En considérant que les TextBoxs renvoie un String, j'ai fait exprès de déclarer les variables Nbr1 et Nbr2 en String

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Nbr1 = "42,4" Nbr2= "46,8" Val(Nbr1) donneras comme valeur 42 val(Nbr2) donneras comme valeur 44 donc tu dois faire, avant tes calculs Nbr1 = replace(Nbr1,",",".") Val(Nbr1) donneras comme valeur 42.4

---

Le séparateur de décimales doit être un point
(car microsoft étant E.U la virgule n'est pas reconnue comme séparateur de décimales)

merci pour ces explications, cela fonctionne impeccable.
J'ai maintenant un petit souci qui m'agace et je ne comprends absolument pas pourquoi j'ai ce problème.

1 Textbox A (Dataformat : nombre 2 decimales - Maxlenght 5) : Je peux donc entrer un nombre style -2.36

1 Textbox B (Dataformat : nombre 2 decimales - Maxlenght 5) : Je peux donc entrer un nombre style -2,25


1 Textbox C (Dataformat : nombre 2 decimales - Maxlenght 5) : Je veux que TextBox C me fasse le calcul TextboxA - TextboxB ce qui devrait me donner : -0.11.

J'ai fait :

Code:

---

TextC.Text = (Val(TextA.Text) - Val(TextB.Text)

---

pourtant mon resultat est 0.36

Que se passe t'il ??

PS : en fait,j'ai l'impression que c'est encore une histoire de points et de virgule car ma texbox B me donne un resultat (car elle est fonction d'un r esultat) numérique décimal mais avec une virgule alors que ma TextBox A me le donne avec uniquement des points.

Je voudrais donc faire en sorte (ne ralez pas .....) que mes valeurs décimales calculéesle soient avec un point et non une virgule

J'aurai utilisé

Code:

---

TextC.Text = Format$(Val(TextA.Text) - Val(TextB.Text))

---

Tu peux utiliser, pour le débuggage

Code:

---

1 2	S$ = Format$(Val(TextA.Text) - Val(TextB.Text)) TextC.Text = S$

---

Tu mets un point d'arrêt sur la deuxiéme ligne, et avec le débuggeur tu regardes le contenu de S$ , TextA.Text et TextB.Text

toujours pareil,, la formule porposee ne fonctionne pas mieux que celle que j'avais mis. En fait, il semble ignorer les chiffres qui sont après une virgule

pour lui : -2.36 - (-2,36) n'est pas egal a 0 mais à -2.36 - (-2) = 0.36 8O

Citation:

---

Envoyé par DAUDET78

et avec le débuggeur tu regardes le contenu de S$ , TextA.Text et TextB.Text

---

et tu as quoi dans les variables ?

TextA.Text et TextB.Text ne doivent pas contenir de virgule "," mais des points "."

alors les variables qui contiennent des virgules sont des Textbox issues d'un calcul style

variable a = 5
variable b = Sqr(Val(Text50.Text)

le probleme est que TexboxB me retourne 2,23 et non 2.23
aucune valeur entree a la main ne contient de virgule, ce sont les valeurs calculées et c'est bien ce qui m'embête

autre exemple :
A1 = 42
A2 = 43
A3, moyenne de A1 et A2 = 42,5 et non 42.5

la formule utilisée est :

Code:

---

TextA3.Text = (Val(TextA1.Text) + Val(TextA2.Text)) / 2

---

et c'est tout, je n'ai rien fait d'autre

P

salut

regarde et adapte :

Code:

---

1 2 3

a1 = 42 a2 = 45 Text1.Text = Str((a1 + a2) / 2)

---

Oui mais attention, a1 et a2 sont des valeurs entrées elles donc qui varient a chaque saisie

autant pour moi, je suis un âne ...... ca fonctionne a priori .... je finis d'autres tests ..... et je reviens lundi

Code:

---

1 2 3

N1$ = replace(TextA1.Text,",",".") N2$ = replace(TextA2.Text,",",".") TextA3.Text = Format$(Val(N1$) + Val(N2$))

---

Bon alors ca ne marche pas pour ce genre de calculs (polynômes) ou B,C,D,E,F et J sont des nombres entrés a la main de la forme allant de -80.00 à +80.00

Code:

---

J = ((B* (C* C* C)) + (D* (C* C)) + (E* C) + F)

---

mon resultat devant se mettre sous la forme xxx.yy (ex : 5.25)
je suis nul en declaration en ce qui concerne les caracteres ceci explique peut être cela

Utilise mon programme #13
Format$ te permet de spécifier le nombre de chiffre après la vigule

Salut à tous;
Eh bien le problème se situe au niveau de l'utilisation de la fonction Val. Si on fait

Code:

---

1 2	MsgBox Val(3.21) ' ou MsgBox Val("3,21")

---

le résultat retourné est 3.
Un seul cas où le résultat est correct:

Code:

---

MsgBox Val("3.21")

---

qui retourne bien 3,21
Puisque tu as paramétré les TextBox pour accepter les nombres, tu n'as pas besoin d'utiliser la fonction Val.

Supprime alors toute fonction Val et le tout rentre dans l'ordre.
Tu n'as pas besoin d'utiliser Replace si tu veux que l'affichage utilise une virgule à la place du point.
Si tu as besoin d'un nombre bien déterminé de chiffres après la virgule, il te suffira d'utiliser la fonction Format :

Code:

---

TextC.Text=Format(TextC.text,"###.00")

---

Dans ce dernier code, tu dois utiliser le point dans le format sinon, le résultat sera tronqué.

Important: Pour la saisie des nombres, il est plus aisé d'utiliser le pavé numérique que d'utiliser les autres touches et en particulier pour la virgule. Pour ce faire, utilise l'évènement KeyPress pour les 2 TextBox de saisie:

Code:

---

1 2 3 4 5 6

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = Asc(".") Then KeyAscii = Asc(",") End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = Asc(".") Then KeyAscii = Asc(",") End Sub

---

et cela remplace le point par la virgule pendant la saisie.

Bonjour,

Et en plus regarde et essaie ceci

Code:

---

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

Dim calc As Currency Dim param1 As String, param2 As String Dim nomb As String Dim TextA3 As String     param1 = "17,126" param2 = "2,362" param1 = Format(param1, "###.00") 'renvoie comme valeur 17,13 param2 = Format(param2, "###.00") ''renvoie comme valeur 2,36 calc = CCur(param1) + CCur(param2) ''renvoie comme valeur 19,49 nomb = Str(calc) 'renvoie comme valeur 19.49 TextA3 = CStr(calc) 'renvoie comme valeur 19,49

---

Il y a peut-être plus simple encore :

Code:

---

1 2 3

Text3.Text = CDbl(Text1.Text) + CDbl(Text2.Text) ' ou encore avec CSng ou CCur Text3.Text = CSng(Text1.Text) + CSng(Text2.Text)

---

qui marche sans problème.(sans oublier le formatage de la sortie)

:? Message N°4 pourtant on en est au 19ème.

Bonjour l_autodidacte,

Et même en une fois avec le formatage

Code:

---

1 2 3 4

Text3.text = Format(CCur(Text1.text) + CCur(Text2.text), "###.00") ' ou encore avec CSng ou CDbl

---

A+