problème de soustraction

Bonsoir le forum
voila un petit bout de code qui me donne soucis

Code:

---

1 2 3 4 5 6 7 8 9

If Val(T_sable.Value) > Val(p_n_sable.Value) Then     Me.T_d_sable.Value = Val(T_sable.Value) - Val(p_n_sable.Value)   Else Me.T_d_sable.Value = Val(p_n_sable.Value) - Val(T_sable.Value) End If

---

Ce sont des valeurs numériques genre 2.564
mais cela ne me donne pas le bon résultat de la soustraction
merci de votre aide

Bonsoir Croky, le forum,

si tes correspondances sont des box, leur valeur est du texte, je te conseillerais de passer par des variables, ex :

Code:

---

1 2 3 4 5

dim t_s as long, p_n as long t_s = format(T_sable.Value,"#0.000") p_n = format(p_n_sable.Value,"#0.000") if T_sable.Value > p_n_sable.Value then ....

---

a +

Bonjour,

Vous pouvez aussi utiliser :

Code:

---

1 2 3 4 5

If CDbl(T_sable.Value) > CDbl(p_n_sable.Value) Then Me.T_d_sable.Value = CDbl(T_sable.Value) - CDbl(p_n_sable.Value) Else Me.T_d_sable.Value = CDbl(p_n_sable.Value) - CDbl(T_sable.Value) End If

---

re croky23 l'ami casefayere l' ami jacques_jean j ai teste avec un bouton pas de souci!!

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() If T_sable <> "" And p_n_sable <> "" Then If Val(T_sable.Value) > Val(p_n_sable.Value) Then T_d_sable.Value = Val(T_sable.Value) - Val(p_n_sable.Value) Else T_d_sable.Value = Val(p_n_sable.Value) - Val(T_sable.Value) End If: End If End Sub

---

vu tes derniers posts il faut voir ton code en entier comment tu l ' as écrit si tu veus l' écrire en direct il faut appliquer la meme démarche que le post precedent avec des AfterUpdate & Change

merci pour ces réponses mais je suis un peu perdu


juste avant j'ai ce code aussi

Code:

---

1 2 3

If T_sable <> "" And p_n_sable <> "" Then If Val(T_sable.Value) > Val(p_n_sable.Value) / 100 * 105 Then MsgBox "Vous avez dépassé la tolérance de 5% au dessus....!" If Val(T_sable.Value) < Val(p_n_sable.Value) / 100 * 95 Then MsgBox "Vous avez dépassé la tolérance de 5% en dessous....!"

---

ensuite j'ai essayé les 2 solutions mais j'ai du faire n'importe quoi.... (débutant)
pouvez vous m'apporter un peu plus d'explication svp

Bonjour,

Citation:

---

Envoyé par croky23

Ce sont des valeurs numériques genre 2.564

---

Si le séparateur décimal est le point, comme tu semble le montrer !!

Code:

---

1 2 3

Private Sub CommandButton1_Click() Label1.Caption = Replace(TextBox1, ".", ",") - Replace(TextBox2, ".", ",") End Sub

---

Et ça fonctionne, j'ai tester.
A+

je viens de tester ton code laetitia

Code:

---

T_d_sable.Value = Val(T_sable.Value) - Val(p_n_sable.Value)

---

cela me donne pour ex

Val(T_sable.Value) =9.236

Val(p_n_sable.Value)=7.25

et le résultat me donne 2.236
au lieu de 1.986

je vous donne le code en entier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub T_sable_AfterUpdate() Me.p_n_sable.Visible = True Me.Label18.Visible = True Me.T_d_sable.Visible = True   If T_sable <> "" And p_n_sable <> "" Then If Val(T_sable.Value) > Val(p_n_sable.Value) / 100 * 105 Then MsgBox "Vous avez dépassé la tolérance de 5% au dessus....!" If Val(T_sable.Value) < Val(p_n_sable.Value) / 100 * 95 Then MsgBox "Vous avez dépassé la tolérance de 5% en dessous....!"   End If   If T_sable <> "" And p_n_sable <> "" Then If Val(T_sable.Value) > Val(p_n_sable.Value) Then T_d_sable.Value = Val(T_sable.Value) - Val(p_n_sable.Value) Else T_d_sable.Value = Val(p_n_sable.Value) - Val(T_sable.Value) End If: End If End Sub

---

re le fil j ai teste j ai bien 1.986 il manque quelque chose ??????????
attention dans le post precedent val pas aimer virgule prendre CDbl

ok je vais changer mes val

cela fonctionne
sauf que T_sable si je le rentre ainsi 7.125 avec un point cela ne fonctionne pas

il y a t'il un poyen pour forcer la saisie avec la virgule?

essaies avec ce code dans keypress

Code:

---

1 2 3

Private Sub ton_box_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If VBA.Chr(KeyAscii) = "." Then KeyAscii = Asc(",") End Sub

---

merci beaucoup c'est génial