Private Sub TextBox4_Change()
Quantité = TextBox4.Value
If Quantité <> "" Then
[COLOR=Purple] Prix = CDbl(TextBox3.Value * Quantité)
Prix = IIf(Prix - Int(Prix) < 0.5, Int(Prix) + 0.5, Int(Prix) + 1)[/COLOR]
TextBox6.Value = IIf(Prix = "", "pas encore défini", Prix & " €")
Else
TextBox6.Value = TextBox3.Value
End If
End Sub