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 : Sélectionner tout - Visualiser dans une fenêtre à part
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