aditionner dans texbox

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

Bonjour,

à adapter

Code:

---

1 2 3

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

---

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

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

bon courage

Bonjour,
Peut-être ceci:

Code:

---

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:

---

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

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