Discussion :

[essadqi]

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 :

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

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

[MarcelG]

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 :

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

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

[essadqi]

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

[MarcelG]

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.

[mfoxy]

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/

[essadqi]

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

[BENNASR]

bonjour ami
essayer de remplacer le point par virgule

Code :

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

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