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, ".", ","))

[BENNASR]

a tester

Code :

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

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

[essadqi]

bonjour ami
essayer de remplacer le point par virgule

Code :

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

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

Merci beaucoup, c'est résolu !!

[MarcelG]

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.

[Patrice740]

Bonjour Marcel,

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.

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

[MarcelG]

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.

[BENNASR]

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

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