Soustraire la valeur d'une cellule à une textbox

[pumbathekings]

Bonjour à tous,

Ma question n'est je pense pas très compliquée mais je ne trouve aucun support sur internet.
Dans mon userform j'ai une textbox contenant une valeur (ex: 40000) que je lui spécifie.
j'aimerai soustraire au 40000 la valeur d'une cellule dans ma feuille ("Feuil1") et obtenir le résultat dans une feuille ("Feuil2").

Savez vous comment faire?

Merci.

Pumba

 

[Pierrot93]

Re : Soustraire la valeur d'une cellule à une textbox

Bonjour,

essaye ceci, à utiliser dans le module de l'userform :

Feuil2.Range("A1") = Val(Replace(TextBox1, ",", ".")) - Feuil1.Range("A1")

bonne journée
@+

 

[pumbathekings]

Re : Soustraire la valeur d'une cellule à une textbox

Merci Pierrot93 !

Je ne sais pas si je dois ouvrir un nouvelle discussion ou pas, mais je me lance quand meme.

Comment pourrait-on intégrer une condition la-dedans:
SI Feuil1.range(A1") est selectionné dans une listbox 1, alors sa valeur se soustrait à ma textbox?

Merci.

Pumba

 

[Pierrot93]

Re : Soustraire la valeur d'une cellule à une textbox

Re,

modifie comme suit :

If ListBox1.Value = "Feuil1.Range(""A1"")" Then Feuil2.Range("A1") = Val(Replace(TextBox1, ",", ".")) - Feuil1.Range("A1")

 

[gilbert_RGI]

Re : Soustraire la valeur d'une cellule à une textbox

Bonjour

un truc dans le genre ?


bonjour Pierrot93