Discussion :

[croky23]

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

Code :

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

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

[casefayere]

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 :

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

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 +

[Invité]

Bonjour,

Vous pouvez aussi utiliser :

Code :

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

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

[laetitia]

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

Code :

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

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

[croky23]

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


juste avant j'ai ce code aussi

Code :

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

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

[croky23]

je viens de tester ton code laetitia

Code :

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

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 :

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

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

[laetitia]

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

[LeForestier]

Bonjour,

Ce sont des valeurs numériques genre 2.564

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

Code :

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

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

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