Discussion :

[Defcon08]

Bonjour le Forum,

Ce n'est pas dans mes habitudes de demander de l'aide, d'habitude j'arrive à me débrouiller mais j'en suis arrivé à un point ou je ne peux plus m'en sortir seul.
Un image pour illuster mon problème:

Alors voilà, les chiffres dans les deux premières textbox sont en double mais ils sont retranscrits dans la dernière TextBox de façon arrondie.
J'ai bien converti toutes mes opérations grâce à la fonction CDbl() mais rien n'y fait.

Ci-joint mon fichier .xlsm

Merci d'avance

[jijie]

Bonsoir,

Bon chez moi ça fonctionne!

Sur ton tableur, tu as des points ou des virgules ex : en h7 tu as 16.86 ou 16,86?


De plus dans module si tu écris :

Code :

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

1
2
3
sub calcul()
Textbox4= round(textbox1.value+textbox2.value+textbox3.value,2)
end sub

et dans textbox 1:

Code :

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

1
2
3
private sub textbox1_change()
calcul
end sub

même chose dans textbox2 et 3!

ça t'évide des écritures fastidieuses dans tes codes


Bon je n'ais pas essayé mais je pense que c'est à voire!

[Defcon08]

Ah bon, c'est étrange mais c'est plutôt une bonne nouvelle.

Mes prix sont écrits avec des virgules. ça peut poser problème, qu'est-ce qui est le mieux ?

Ah oui, fastidieux ça l'a été. Merci j'y penserai à l'avenir.

[Invité]

les valeur numérique quoté EXCEL sont 5,2 * 3,2;
du coté VBA 5.2 * 3.2;
en plus il faut compter sur les paramètres régeauneaux de Windows.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
Dim v
v = StringAsDouble("5.2") * StringAsDouble("3,8")
Debug.Print v
End Sub
 
Function StringAsDouble(v) As Double
Dim n
n = Replace(v, ",", ".")
If IsNumeric(n) = True Then StringAsDouble = n: Exit Function
n = Replace(n, ".", ",")
If IsNumeric(n) = True Then StringAsDouble = n: Exit Function
End Function

[jijie]

Ah bon, c'est étrange mais c'est plutôt une bonne nouvelle.

Mes prix sont écrits avec des virgules. ça peut poser problème, qu'est-ce qui est le mieux ?

Ah oui, fastidieux ça l'a été. Merci j'y penserai à l'avenir.

Pour moi je pense que c'est le "."

Sur mes ordi, je paramètre ds panneau de configuration , option régionale date heure et langue , option régionale et linguistique , personnaliser, dans l'onglet nombre sur symbole décimale on met le "." et ds l'onglet symboles monétaire sur symbole décimale on met le "."

Ainsi lorsque tu ouvre un nouveau fichier excel et que tu tape 2,3 avec ton clavier numérique tu auras sur ta cellule excel 2.3!

Fait l'essai et donne nous le résultat!