Discussion :

[MADA BLACK]

Pièce jointe 198831Bonjour Forum
Bonjour à tous et à toutes
S'il vous plaît ..si vous pouvez m'aider à résoudre ce problème
Dans mon Form1 j'ai 6 Text
Text6.Text = Text1.Text - (Text2.Text + Tex3.Text + Text4.Text + Text5.Text)
Par exemple, comme l'opération dans l'image ci-dessous:
87588,05 = 97816,10 - (05.50 + 1146,60 + 300 + 8775,95)
Je veux que le résultat dans Text6 sera toujours arrondi à la dizaine inferieur
dans cet exemple (87588,05) dans Text6 .. apparaît (87580,00)
Je tente avec le code dans mon Form mais j'ai pas completement réussi
Merci beaucoup d'avance pour l'aide
Cordialement
MADA BLACK
Pièce jointe 198828

[DAUDET78]

Teste ça :

Code :

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

1
2
3
4
Private Sub Text5_Change()
D& = Val(Replace(Me.Text1, ",", ".")) - Val(Replace(Me.Text2, ",", ".")) - Val(Replace(Me.Text3, ",", ".")) - Val(Replace(Me.Text4, ",", ".")) - Val(Replace(Me.Text5, ",", "."))
Me.Text6.Text = Format$(D&) & ".00"
End Sub

[MADA BLACK]

Bonjour DAUDET78
Merci beaucoup pour votre code et votre aide
Tres gentil de votre part
L'opération ça fonctionne d'une façon formidable
Sauf le resultat dans Text6 n'est pas arrondi a la dizaibe inferieur ..j'ai obtenu comme resultat (87588.00) mais normalement je vais obtenir uniquement ( 87580.00 )
Merci 1000 fois pour l'aide
Sincerement
MADA BLACK

[DAUDET78]

Je sais, j'ai fais une erreur ..... je suis en train de debugger !

[DAUDET78]

Voilà, ça c'est bon

Code :

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

1
2
3
4
5
6
7
8
Private Sub Text5_Change()
   DD@ = Val(Replace(Me.Text1, ",", ".")) - Val(Replace(Me.Text2, ",", ".")) - Val(Replace(Me.Text3, ",", ".")) - Val(Replace(Me.Text4, ",", ".")) - Val(Replace(Me.Text5, ",", "."))
Debug.Print DD@  ' Impression de la valeur exacte avec décimal
   S$ = Format$(DD@)
   S$ = Replace(S$, ",", ".") + "."
   I% = InStr(S$, ".")
   Me.Text6.Text = Left$(S$, I%) & "00"
End Sub

Je n'ai pas regroupé les opérations, mais on peut le faire (c'est moins compréhensible)

[MADA BLACK]

Bonjour DAUDET78
Merci pour votre super suivi de mon sujet
Tres gentil de votre part ..merci encore pour votre temps sacré pour resoudre mon probleme
Toujours l'operation extra resolu .. simplement toujours le resultat n'est pas arrondi a la dizaine inferieur ..normalement j'obtiens dans Text6 le montant (87580.00)
Voir svp cette image
Tres cordialement
MADA BLACK