Private Sub montantHT_Change()
On Error Resume Next
Dim pos As Integer
' on remplace le point par une virgule
MONTANTHT = Replace(MONTANTHT, ".", ",")
' on compte le nombre de chiffre après la virgule
pos = InStr(1, MONTANTHT.Value, ",")
If pos > 0 And Len(Mid(MONTANTHT.Value, pos + 1)) > 2 Then
MONTANTHT = Left(MONTANTHT, Len(MONTANTHT) - 1)
End If
' vérification des valeurs
If Not IsNumeric(Right(MONTANTHT, 1)) And Right(MONTANTHT, 1) <> "," Then
MsgBox "Le caractere saisi n'est pas valide"
MONTANTHT = Left(MONTANTHT, Len(MONTANTHT) - 1)
End If
VAT = CDbl(MONTANTHT) * CDbl(TX_TVA.Value) / 100
TOTAL = CDbl(MONTANTHT) + CDbl(VAT)
End Sub
Private Sub UserForm_Initialize()
Dim TTVA As Range
TX_TVA.Value = Range("TVA").Value
End Sub