Problème de soustraction USERFORM vba excel

J’utilise le code suivant pour la soustraction des deux textboxs 8 et 6.
Mais quand je fais un calcul d’un nombre réel avec virgule, automatiquement la virgule disparaitre. Et ne la prend pas en considération dans le calcul.
Par exemple
Si on a TextBox 8 = 302,202
Et TextBox6 = 10,10
Le calcul se fait sur la base de 302202 – 10.1 = 302191.9
Et la cellule du textbox 8 se transforme en 302191.9 ce qui me fausse le calcul
Ci-dessous le code
---------------------------

Code:

---

1 2 3 4 5 6 7 8

If (Val(TextBox8.Value) - Val(TextBox6.Value) >= 0 Then TextBox8.Value = Val(TextBox8.Value) - Val(TextBox6.Value) Me.CommandButton3.Enabled = True Else MsgBox "Calcul négatif" End If   End Sub

---

--------------------------------------
Merci pour votre aide et collaboration

Bonjour,

C'est, à mon humble avis, s'attirer des ennuis que de vouloir modifier un Textbox suite à saisie.
Mieux vaudrait considérer un label si l'on souhaite voir le résultat apparaître.

Code:

---

Me.Label1.Caption = CDbl(Me.TextBox6.Text) - CDbl(Me.TextBox8.Text)

---

2 remarques
- Comme son nom l'indique, une Textbox ne renvoie que du texte
- Mieux vaut convertir celui-ci avec Cdbl

Je n'ai pas réussi à résoudre le problème, voila le fichier.

Citation:

---

Je n'ai pas réussi à résoudre le probleme, voila le fichier. vous pouvez tester

---

Pas d'ouverture de classeur joint en début de discussion.

Qu'entends-tu par "Je n'ai pas réussi"?
Quel code? Quelle ligne en anomalie?
As-tu essayé d'adapter la ligne de code que je t'ai proposée?

Pourrais-tu reporter l'intégralité du code issu de cette adaptation..
Ce sera plus aisé ainsi de répondre à ta problématique.

Bonjour,

J'ai ouvert ton fichier su rune machine virtuelle, et ton code est assez, euh disons "capillotracté ".
Je ne peu que te conseil à la lecture des billets suivants :

https://www.developpez.net/forums/bl...-vba-1/http://

https://www.developpez.net/forums/bl...jamais/http://

et le meilleur pour la fin :

https://www.developpez.net/forums/d2...eau-structure/

Citation:

---

Envoyé par MarcelG

Pas d'ouverture de classeur joint en début de discussion.

Qu'entends-tu par "Je n'ai pas réussi"?
Quel code? Quelle ligne en anomalie?
As-tu essayé d'adapter la ligne de code que je t'ai proposée?

Pourrais-tu reporter l'intégralité du code issu de cette adaptation..
Ce sera plus aisé ainsi de répondre à ta problématique.

---

je l'ai testé, après la compilation me donne un message d'erreur d’exécution incompatibilité de type 13

bonjour ami
essayer de remplacer le point par virgule

Code:

---

CDbl(Replace(textbox6.Value, ".", ","))

---

a tester

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CommandButton5_Click() TextBox6.Value = CDbl(Replace(TextBox6.Value, ".", ",")) TextBox7.Value = CDbl(Replace(TextBox7.Value, ".", ",")) TextBox8.Value = CDbl(Replace(TextBox8.Value, ".", ",")) If CDbl(TextBox8.Value) - CDbl(TextBox6.Value) + CDbl(TextBox7.Value) >= 0 Then TextBox8.Value = CDbl(TextBox8) - CDbl(TextBox6) + CDbl(TextBox7.Value) Me.CommandButton3.Enabled = True Else MsgBox "Calcul négatif" End If   End Sub

---

Citation:

---

Envoyé par BENNASR

bonjour ami
essayer de remplacer le point par virgule

Code:

---

CDbl(Replace(textbox6.Value, ".", ","))

---

---

Merci beaucoup, c'est résolu !!

Je ne sais pas qui m'a gracié d'un pouce vers le bas.
Je l'en remercie.

Quoi qu'il en soit, si un membre de ce forum peut m'expliquer ce en quoi ma réponse a d'inopportun, alors je serais tout disponible pour le lire.

J'aurai l'occasion, d'une manière ou d'une autre, de revenir sur ces pouces.
Au demeurant, le moins que l'on puisse en dire est qu'ils révèlent parfois un état d'esprit qui, pour moi, est inepte dans ce forum.

Ma consolation, si tant est qu'elle puisse exister, est que je ne suis pas le seul.
D'autres, dont la technicité est bien supérieure à la mienne, ont été dans cette situation.

Bonjour Marcel,

Citation:

---

Envoyé par MarcelG

Je ne sais pas qui m'a gracié d'un pouce vers le bas [....] ils révèlent parfois un état d'esprit qui, [...], est inepte dans ce forum.

---

:plusser: :plusser: :plusser: En particulier dans ce cas qui n'est qu'un rappel de la charte de ce forum !

Bonjour le Forum,

Bonjour Patrice et merci pour ton soutien.

Je me suis permis de rédiger un billet à ce sujet, dans mon blog.

Bonne journée.

Bonjour
Monsieur,
Vous avez à la clé 3065 messages, et si un message prend 10 minutes (lecture + réponse) donc 30650 minutes de bénévolat ; soit 510 heures et 50 minutes … ;)
Donnez de votre temps comme MarcelG et puis vous pouvez passer un pouce bas

Citation:

---

Bonjour Patrice et merci pour ton soutien.

---

Beaucoup de débutant qui nécessite votre soutien et non pas MarcelG qui nécessite de soutien
Bonne journée ..Mon respect