Discussion :

[bosk1000]

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 :

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

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 :

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

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 ?

[laetitia]

bonjour bosk1000 as tu essaye avec la fonction replace

Code :

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

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

[casefayere]

Bonjour,

et avec ça :

Code :

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

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

[bosk1000]

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

[casefayere]

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

[bosk1000]

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é

[bosk1000]

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