Additionner valeur avec textbox

Bonjour le forum,

Voila j'ai un petit fichier qui permet dés que je click dans une cellule ou il y a une valeure un userform apparait pour que je puisse mettre une valeur dedans et puis j'appuie un bouton additionner et la valeure s'additionne a celui de la cellule voici mon code

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() ActiveCell.Value = ActiveCell.Value + Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) Unload Me End Sub

---

Mais le truc c'est que qand je met un chiffre entier il ny a pas de souci mais contre quand j'écris dans ma textbox une valeure avec une virgule il ne prend pas en compte les valeures aprés la virgule .
Pouriez vous adaptez mon code s'il vous plait merci d'avance à vous

bonjour PUARAI le forum utilise CDbl a la place de val

Code:

---

ActiveCell.Value = ActiveCell.Value + CDbl(TextBox1.Value)'ect...

---

Bonjour laetitia le forum
merci beaucoup d'avoir répondu rapidement
j'ai j'ai toute la ligne du code qui est en jaune
je ne sais pas pourquoi a moins que tu as une autre solution je suis preneur
merci d'avance

A laetitia ou forum

Laititia je suis vraiment désolé j'ai fais une gourde
en faite avec

Code:

---

Val

---

ça marchais très bien
mais quand je tapais dans mon textbox je mettais
par exemple

Citation:

---

12,34

---

et en faite la solution toute simple
etais de remplacer la virgule par un point :oops:
merci tout de même
et bonne journée à tous

Bonjour Puaray, Laetitia,re le forum,

Pour éviter les erreurs de saisie dans tes textbox, tu peux ajouter dans le code de cha que textbox

Code:

---

1 2 3

Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If VBA.Chr(KeyAscii) = "," Then KeyAscii = Asc(".") End Sub

---

Bon Weed-end

re l avantage d utiliser CDbl meme si tu te trompes pas de souci ca marcheras
autrement si tu tiens a conserver val tu peûs rajouter ce code

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub textBox1_keyPress(ByVal keyAscii As MSForms.ReturnInteger) If keyAscii = Asc(",") Then keyAscii = Asc(".") End Sub Private Sub textBox2_keyPress(ByVal keyAscii As MSForms.ReturnInteger) If keyAscii = Asc(",") Then keyAscii = Asc(".") End Sub Private Sub textBox3_keyPress(ByVal keyAscii As MSForms.ReturnInteger) If keyAscii = Asc(",") Then keyAscii = Asc(".") End Sub

---

oups !!bonjour l ami casefayere pas rafraichi!!!!!:oops:

Bonsoir casefayere,laetitia

Merci pour vos code c'est vachement bien se truck là
j'en apprendrais toujours de vous et encore
merci à vous deux , bon week end à tous
:king: