textbox1 moins textbox2

[Mimi]

Bonjour à tout le forum,
Je recherche le moyen de déduire la valeur d'un textbox par rapport à la valeur d'un 2ème textbox et de mettre le résultat dans la celulle sélectionnée. Le textbox1 sert a déduire la valeur de stock2.
Je vous joints un petit fichier pour l'explication.
D'avance merci
Mimi

 

[Pierrot93]

Re : textbox1 moins textbox2

Bonjour,

regarde peut être ceci :

ActiveCell.Value = CDbl(TextBox1) - CDbl(TextBox2)

bonne soirée
@+

 

[Dranreb]

Re : textbox1 moins textbox2

Bonjour
Je ne vois pas bien où est votre problème: vous avez bien réussi une addition par un "+", qu'est-ce qui vous empêche de faire exactement la même chose avec l'autre TextBox1 par un "-" ?
À+

 

[Mimi]

Re : textbox1 moins textbox2

Bonjour Pierrot,
Merci pour la réponse,
Dans mon cas ça ne marche pas ou alors j'ai du mal à l'adapter
Désolé j'avais pas rafraichi.
Je n'arrive pas à faire pareil mais avec moins
Mimi

 

[job75]

Re : textbox1 moins textbox2

Bonjour mimi, Pierrot, Dranreb,

Pas regardé le fichier, car ceci marche toujours :

ActiveCell = Val(Replace(TextBox1, ",", ".")) - Val(Replace(TextBox2, ",", "."))

A+

 

[Pierrot93]

Re : textbox1 moins textbox2

Re, bonjour Bernard

ca marche pas ?? veut dire quoi ?? message d'erreur ou pas le résultat attendu ???

Edition : bonsoir Job

 

[Mimi]

Re : textbox1 moins textbox2

Re,
Pas de résultat du tout même avec le code de job75
Mimi

 

[Pierrot93]

Re : textbox1 moins textbox2

Re,

déjà, "Monstock" est une variable pas un objet "textbox".....

 

[Mimi]

Re : textbox1 moins textbox2

Re,
Oui, c'est comme sa que j'arrive a ajouter avec le textbox "nommé stock2"

 

[Dranreb]

Re : textbox1 moins textbox2

Et comme ça ça donne quoi ?

Private Sub CommandButton1_Click()
Dim monajout2 As Integer, MaDéduction As Integer
Dim Monstock As Range
Dim L As Integer
L = ComboBox1.ListIndex + 110
If ajout2 = "" Then Exit Sub
monajout2 = ajout2.Text
MaDéduction = TextBox1.Text
Set Monstock = Worksheets("Stock").Cells(L, "C")
Monstock.Value = Monstock.Value + monajout2 - MaDéduction
Unload Ajout1
Ajout1.Show
End Sub

À+

 

[job75]

Re : textbox1 moins textbox2

Re mimi,

Bon j'ai ouvert le fichier et corrigé la macro.

Il ne faut pas créer des variables inutiles, c'est source d'erreur quand on les déclare de travers !

A+

 

[Mimi]

Re : textbox1 moins textbox2

Re,
Merci à tous pour vos réponse, job75 la macro est OK sa marche nikel, mais pourquoi mes variables dans le sens addition marche et en adaptant avec un moins je me retrouve coincé ?
Encore merci et à plus
Michel