total dans une textbox

bonjour à tous

j'ai fait un formulaire avec un principe de article en menu déroulant/prix unitaire/quantité/total

problème : je n'arrive pas à obtenir un chiffre à virgul
le prix unitaire est récupéré dans une liste selon le choix de la référence

voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Option Explicit Private Sub UserForm_Initialize() ' activez les sources de menu déroulant c12ref1.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row End Sub 'EVENEMENT POUR CHAQUE SELECTION DE REF Private Sub c12ref1_Change() Dim rech1 As String, c12prix1 As Double Sheets("tarif").Activate rech1 = c12ref1.Value Cells.Find(What:=rech1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate ActiveCell.Offset(0, 1).Select c12prix1 = ActiveCell.Value c12p1.Value = c12prix1 End Sub ' evenement sur changement quantité Private Sub q1_Change() t1 = Round(Val(q1) * Val(c12p1), 2) End Sub

---

donc si le prix unitaire est 6.20 et que je prenne 1 en quantité
le résultat dans la box t1 sera 6
pour une quantité de 2, il sera de 12

Salut,
Je ne vois pas le dimensionnement de tes variables 't1' et 'q1' à mon avis en les dimensionnant en Single, Double ou Decimal (voir en Variant) ça doit le faire.
A+

t1 et q1 sont des box, je doit faire un dim.. as.. sur le nom d'une box ?

Citation:

---

Envoyé par bosk1000

t1 et q1 sont des box, je doit faire un dim.. as.. sur le nom d'une box ?

---

Je te rassure non.
Par contre a mon avis cela viens d'un problème de séparateur de décimal. 6.5 n'est pas forcément la même chose que 6,5.

Essaye d'afficher le contenu de q1 et c12p1.
avant

Code:

---

t1 = Round(Val(q1) * Val(c12p1), 2)

---

Si tu as une , il va te falloir la remplacer par un .

Je pense que cela viens de là, par contre je ne peux pas t'en dire plus j'utilise dans mes option windows le . comme séparateur de décimale

Edit
Essaye

Code:

---

t1 = Round(Val(replace(q1,",",".")) * Val(replace(c12p1,",",".")), 2)

---

Re,
Désolé, j'ai pas été clair, c'est plutot la valeur de ces box qu'il faut dimensionner.
Si la solution de Krovax (Salut) ne fonctionne pas tu peux essayer en ajoutant une variable (dimensionnée en Double) qui récupère la valeur de tes box.
Voici ce que j'ai obtenu en faisant un test (concluant :D)

Code:

---

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

Private Sub q1_Change()   Dim q1 As Object, C12p1 As Object Dim t1 As Double, q1Val As Double, C12p1Val As Double   Set q1 = UserForm1.q1 Set C12p1 = UserForm1.C12p1 q1Val = Val(q1) C12p1Val = Val(C12p1)   t1 = Round(q1Val * C12p1Val, 2) End Sub

---

A+

merci à vous deux

krovax, tu as raison le problème viens de la virgule
ça fonctionne

par contre quelle option utilises-tu pour ne pas rencontrer ce problème

Le meilleur moyen est dans les option excel tu choisis dans l'onglet international séparateur de décimal le .
Tu peux également dans le panneaux de configuration windows dans les paramètre régionaux (je crois) faire la même chose.

Le problème est que si ton code fonctionne bien chez toi il risque de ne pas tourner sur un ordinateur ou l'utilisateur n'a pas fait cette manip. Le plus simple est de remplacer les , par des . quand tu récupère la valeur d'une box ou directement quand tu entres la valeur dans une box

ok, merci
bonne info