Discussion :

[Attila54]

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

[ProgElecT]

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.

[Attila54]

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 :

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

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)

[ProgElecT]

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 :

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

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.

[iclic]

Bonjour,

En plus, attention à ceci

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 :

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

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)

[Attila54]

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 :

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

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

[DAUDET78]

J'aurai utilisé

Code :

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

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

Tu peux utiliser, pour le débuggage

Code :

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

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

[Attila54]

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

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

[Attila54]

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 :

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

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

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

P

[babaothe]

salut

regarde et adapte :

Code :

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

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

[Attila54]

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

[DAUDET78]

Code :

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

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

[Attila54]

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 :

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

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

[DAUDET78]

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

[l_autodidacte]

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

Code :

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

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 :

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

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 :

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

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 :

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

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.

[iclic]

Bonjour,

Et en plus regarde et essaie ceci

Code :

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

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

[l_autodidacte]

Il y a peut-être plus simple encore :

Code :

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

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)

[ProgElecT]

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

[iclic]

Bonjour l_autodidacte,

Et même en une fois avec le formatage

Code :

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

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

A+