Discussion :

[Kagoume]

Bonjour,

A partir d'un form j'ai valider une commande
qui me rempli un textbox.

Après deux saisies successives de 500 et 500 chacune je voulais avoir dans un autre textbox
la somme 1000

mais j'ai plutôt 500 500
Voici la formule que j'utilise

.value= Form1.textbox1.value +.value

où est l'erreur svp?
Merci

[casefayere]

Bonjour,

à adapter

Code :

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

1
2
3
With TextBox3
  .Value = CDbl(Me.TextBox1) + CDbl(Me.TextBox2)
End With

[Kagoume]

Bonjour Casefayere
Merci d'avoir répondu à mon message.

Cependant il y a un petit lapsus.
les valeurs sont saisie dans le même textbox à des temps différents

On saisit 500 puis on valide.
On ressaisi 500 puis valide
Et le résultat doit afficher 1000
Merci

[eric4459]

Bonjour,
Peut-être ceci:

Code :

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

1
2
3
With TextBox3
  .Value =  TextBox3.Value +  TextBox3.Value
End With

Ou alors il faut créer une zone Tampon pour incrémenter sa valeur, par exemple

Code :

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

1
2
3
4
5
6
 
ThisWorkbook.Sheets("Nom_de_la_Feuille).Range("A1")= TextBox3.Value
'Ici le code qui réalise le traitement
'
ThisWorkbook.Sheets("Nom_de_la_Feuille).Range("A1")=ThisWorkbook.Sheets("Nom_de_la_Feuille).Range("A1")+TextBox3.Value
TextBox3.Value=ThisWorkbook.Sheets("Nom_de_la_Feuille).Range("A1")

Eric

[Kagoume]

Re
casefayere, Eric

La piste de casefayere est bonne.
il me fallait ajouter dans mon code Cdbl(...) sinon le texbox aligner les chiffres comme du texte
Merci à vous
A bientôt

[casefayere]

Ok, mais le principe reste le meme, passer par Cdbl, à toi d'adapter

bon courage