multiplication dans un userform

bonjour

dans un formulaire j'ai une textbox quantité et une autre prix
le prix apparait suite a un evenement de selection d'un produit

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub produit1_Change() Sheets("stock").Activate rech1 = produit1.Value Cells.Find(What:=rech1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate ActiveCell.Offset(0, 2).Select stock_act1 = ActiveCell.Value ActiveCell.Offset(0, 2).Select prix_vente1 = ActiveCell.Value   stock_actuel1.Value = stock_act1 prix1.Value = prix_vente1

---

par la suite je rentre une quantité, ce qui donne dans une textbox

Code:

---

1 2 3 4

Private Sub quantite1_Change() total1 = Val(prix1) * Val(quantite1) End Sub

---

le probleme est que le prix apparaissant en chiffre avec une virguke (exemple 6,80) donne un résultat éronné, alors que si j'ai un point à la place de la virgule, le résultat est correct

donc quelle solution dois-je adopté
1) paramétré pour que les chiffres soit en 0.00
2) obligé le formulaire a faire correctement la formule avec des chiffres a virgule

et comment puis-je faire ?

bonjour bosk1000 as tu essaye avec la fonction replace

Code:

---

monText = Replace(monText, ",", ".")

---

Bonjour,

et avec ça :

Code:

---

1 2 3

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

---

bonjour leatitia, le forum

toujour là pour me filé un coup de main, je t'en remercie

comment puis-je utiliser ta proposition dans la textbox, car je ne doit pas y toucher dans le tableau

a moins d'envoyer la variable dans un coin du tableau
et de modifier dans la cellule par un "edition" "recherche et remplace" "la virgule en point"
et de notifiec cette nouvelle valeur comme une nouvelle variable

faisable mais très lourd....

merci casefayere pour ton aide,

ou dois-je placé ce code
je l'ai mis tout au début du formulaire en remplaçant ton textbox" par le nom d'une des textbox

et j'ai répété l'opération pour chaque textbox

mais cela ne donne rien de différent

tu mets dans l'évenement keypress du textbox, en double-cliquant sur le textbox et en cherchant l'évenement keypress, je l'ai fait pour moi, ça marche impeccable

ok
merci
je teste, mais l'évenement est différent
la c'est lorsque je change la textbox produit, alors le prix dans le tableau donne sa valeur à la textbox quantité

casefayere,

je viens de tester
mais mon souci venant de la valeur que je rapatrie du tableau vers le formulaire
j'ai un souci de convertion de la virgule en point

en fait , il faudrait que sur la valeur rapatrié vers le tableau, je change la virgule en point
ce que sugère leatitia
je test cette methode

à moins que je n'ai pas compris mais la macro, il faut l'écrire dans la textbox produit1

Code:

---

1 2 3

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

---

mais c'est peut-etre le code inverse

Code:

---

If VBA.Chr(KeyAscii) = "," Then KeyAscii = Asc(".")

---

genial leatita

ton code est simple et efficace

en voici un exemple integrer en pleine ouverture de formulaire

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() Dim totalvalue As Variant totalvalue = Round(range("I65536").End(xlUp).Value, 2) totalbox.Value = totalvalue totalbox = Replace(totalbox, ",", ".") np.Value = Round(range("I65536").End(xlUp).Value, 2) End Sub

---

merci pour votre aide