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