WORKSHEET FUNCTION VB6

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

Teste ça :

Code:

---

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

---

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

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

Voilà, ça c'est bon

Code:

---

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)

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

J'avais pigé : unité inférieur !
Je regarde

Merci DAUDET78
Merci mille fois
Je vous attend avec impatience car je suis vraiment faitigué avec ce sujet
Merci d'avance
Tres cordialement
MADA BLACK

Ca devrait être bon

Code:

---

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@ S$ = Format$(DD@) S$ = Replace(S$, ",", ".") + "." I% = InStr(S$, ".") Me.Text6.Text = Left$(S$, I% - 2) & "0.00" End Sub

---

PS : ton résultat peut être négatif ? dans ce cas, tel quel, le programme arrondi à la dizaine supérieure

Bonsoir DAUDET78
Merci 1000 fois pour votre aide et pour votre super suivi de mon sujet
Tres tres gentil de votre part
Merci DAUDET78 pour votre precieux temps sacré pour resoudre mon probleme
C'est exactement ce que je veux voir et avoir
C'est parfaitement résolu
Tres cordialement
MADA BLACK
Pièce jointe 198879

Citation:

---

Envoyé par MADA BLACK

C'est parfaitement résolu

---

C'est sympa de savoir qu'on peut encore être utile ...
Par contre, ton programme ne fait la mise à jour du total que si on touche à text5 ? Donc le résultat est faux si on touche uniquement text2 ? C'est normal ?

Bonsoir DAUDET78
Merci pour votre suivi
J'ai mis le code comme ça dans ma Form il fonctionne trez tres bien
Amicalement
MADA BLACK
Pièce jointe 198881

Citation:

---

Envoyé par MADA BLACK

J'ai mis le code comme ça dans ma Form il fonctionne trez tres bien

---

C'est un peu de la programmation "bourrin" ! Quand on recopie de multiple fois un même bout de programme, il y a toujours une méthode pour faire mieux !

Si, dans 6 mois par exemple,tu décides d'arrondir au centaine et plus au dizaine ? Tu as le code à changer à 6 endroits différents ! Tu vois les risques d'erreur et de temps perdu ?

Bonjour DAUDET78
Merci pour votre explication .. je la considere comme vrai leçon VB6
Avec tous mes respects
Se sera un grand plaisir de me faire savoir comment se fera cette methode plus simple pour faire mieux que mes longs codes
Merci beaucoup d'avance
Tres cordialement
MADA BLACK

Voilà un exemple de ce que je sais faire. Je ne dis pas que c'est parfait !

Pièce jointe 198911

Bonjour;
Pour le code, il vaut mieux le mettre en texte qu'en image non exploitable. Pour ce faire, sélectionne le code voulu dans l'éditeur VB6 puis Copier ensuite dans la fenêtre d'édition du forum appuie une seule fois sur le bouton # puis Coller.
On peut également Coller le code, le sélectionner en entier puis on appuie sur le bouton #.
Autre remarque : Au début de chaque module(code dans une Form .frm, un module de classe .cls, un module de base .bas ....,il est conseillé d'ajouter la clause Option Explicit permettant d'informer qu'une variable utilisée n'est pas déclarée.
Suite à la remarque de DAUDET78(que je salue), tu peux procéder à des appels au lieu de réécrire le même code plusieurs fois comme suit

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Option Explicit   ' Dim DD@, S$, I%   Private Sub Text1_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@ S$ = Format$(DD@) S$ = Replace(S$, ",", ".") + "." I% = InStr(S$, ".") Me.Text6.Text = Left$(S$, I% - 2) & "0.00" End Sub   Private Sub Text2_Change() Call Text1_Change End Sub   Private Sub Text3_Change() Call Text1_Change End Sub   Private Sub Text4_Change() Call Text1_Change End Sub   Private Sub Text5_Change() Call Text1_Change End Sub

---

Ainsi, si tu as des changements à faire, ce sera uniquement dans la procédure Text1_Change.

Citation:

---

Envoyé par DAUDET78

Voilà un exemple de ce que je sais faire. Je ne dis pas que c'est parfait !

Pièce jointe 198911

---

Bonjour DAUDET78
je n'ai rien qu'a vous dire "BRAVO"
Du fond du coeur 1000 fois merci
Vous m'avez vraiment sauvé avec tes formidable et impeccables codes
Merci aussi pour votre interessant fichier
Tres amicalement
MADA BLACK
Pièce jointe 198937

Bonjour AUTODIDACTE
Tres ravi de vous rencontrer une autre fois dans mon sujet
Merci beaucoup pour vos supers explications
Merci 1000 fois aussi pour votre code et votre aide
Tres cordialement
MADA BLACK
Pièce jointe 198938