Problème de calcul dans Text Box

G

gbinforme

XLDnaute Impliqué

• 16 Juillet 2007

• #2

Re : Problème de calcul dans Text Box

bonsoir,

Si pour ton contrôle tu mets :

If Val(TextBox5.Value) - (Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value)) <> 0 Then

cela va beaucoup mieux marcher car tes textbox.value sont des zones de texte et pour faire des calculs avec c'est pas top !

D'ailleurs, si tu vérifies ton transfert sur la feuille, c'est du texte qui ne peux pas entrer dans des calculs.

donc :

Sheets("Feuil2").Activate
Range("A1") = Val(TextBox1.Value)
Range("A2") = Val(TextBox2.Value)
Range("A3") = Val(TextBox3.Value)
Range("A4") = Val(TextBox4.Value)

serait aussi plus approprié...

 

Dernière édition: 16 Juillet 2007

Vote positif 0 Vote négatif

A

amayze

XLDnaute Nouveau

• 16 Juillet 2007

• #3

Re : Problème de calcul dans Text Box

MErci pour ta réponse mais ça ne marche pas non plus.

 

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 16 Juillet 2007

• #4

Re : Problème de calcul dans Text Box

bonsoir,

effectivement, avec la virgule, il faut remplacer 'val' par 'CDbl'

If CDbl(TextBox5.Value) - (CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value)) <> 0 Then

Sheets("Feuil2").Activate
Range("A1") = CDbl(TextBox1.Value)
Range("A2") = CDbl(TextBox2.Value)
Range("A3") = CDbl(TextBox3.Value)
Range("A4") = CDbl(TextBox4.Value)

 

Vote positif 0 Vote négatif

A

amayze

XLDnaute Nouveau

• 16 Juillet 2007

• #5

Re : Problème de calcul dans Text Box

Mercipour ta réponse
Mais comme je l'ai dit lorsque le total est négatif ça ne marche pas.

Si textbox1=-10000,5
textbox2=2000
textbox3=1000
textbox4=3000

total=-4000,5

ça ne marche pas.

Merci de votre aide

 

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 16 Juillet 2007

• #6

Re : Problème de calcul dans Text Box

bonsoir

sur mon poste cela fonctionne parfaitement, alors je te conseilles un copier/ coller des formules pour qu'il n'y ai pas d'erreur de frappe.

 

Vote positif 0 Vote négatif

A

amayze

XLDnaute Nouveau

• 17 Juillet 2007

• #7

Re : Problème de calcul dans Text Box

Merci
Quand j'essaie avec les données que j'ai communiqué ça marche
Mais avec d'autres données ça ne marche pas.

Exemple :
*txb1=1404118.1
*txb2=16524.7
*txb3=-3562497.4
txb4=0

total = -2141854.6

il renvoie une erreur

Merci de votre aide

 

Vote positif 0 Vote négatif

A

amayze

XLDnaute Nouveau

• 17 Juillet 2007

• #8

Re : Problème de calcul dans Text Box

juste pour faire remonter ma discussion
merci de vos réponses

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 17 Juillet 2007

• #9

Re : Problème de calcul dans Text Box

Salut amayze
Bonjour gbinforme
Bonjour le Forum

Tiens ???? là, tu as Un point comme Séparateur !!!!!!!!! *txb1=1404118.1

alors que tu avais juste avant Si textbox1=-10000,5 ????

Bonne fin de Journée

 

Vote positif 0 Vote négatif

A

amayze

XLDnaute Nouveau

• 17 Juillet 2007

• #10

Re : Problème de calcul dans Text Box

Non les amis
ça ne marche toujours pas.
Même avec la virgule.
je ne sais vraiment plus quoi faire
help

 

Vote positif 0 Vote négatif