Re : Formater une TextBox en monétaire
'--TextBox4 Quantité
Private Sub TextBox4_Change()
On Error Resume Next
TextBox5 = Format(TextBox3 * TextBox4, "# ## 0.00 €") 'Quantité * par prix Unitaire
On Error Resume Next
TextBox7 = Format(TextBox6 * TextBox5 / 100, "# ## 0.00 €") 'Taux Tva * par prix total
On Error Resume Next
TextBox8 = CDbl(Me.TextBox7) + (Me.TextBox5) ', "0.00 €") 'Total Tva + Total HT
TextBox8.Tag = TextBox8.Value
On Error Resume Next
'TbxAccompte = Format(TextBox8 * ComboBox4 / 100, "# ##0.00")
TextBox8 = Format(TextBox8, "#,##0.00 € ")
'CommandButton1.Visible = True
End Sub