Discussion :

[PUARAI]

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 :

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

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

[laetitia]

bonjour PUARAI le forum utilise CDbl a la place de val

Code :

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

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

[PUARAI]

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

[PUARAI]

A laetitia ou forum

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

Code :

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

Val

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

12,34

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

[casefayere]

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 :

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

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

Bon Weed-end

[PUARAI]

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

[laetitia]

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 :

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

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!!!!!