Private Sub TextBox18_AfterUpdate()
Dim LeTexte As String
LeTexte = ""
LeTexte = TextBox18.Value
LeTexte = Application.WorksheetFunction.Substitute(LeTexte, Chr(46), Chr(44))
TextBox18.Value = Format(LeTexte, "0.00")
TextBox18 = Replace(TextBox18, ".", ",")
TextBox18 = Format(TextBox18, "#,##0.00")
End Sub
Private Sub TextBox19_AfterUpdate()
Dim LeTexte As String
LeTexte = ""
LeTexte = TextBox19.Value
LeTexte = Application.WorksheetFunction.Substitute(LeTexte, Chr(46), Chr(44))
TextBox19.Value = Format(LeTexte, "0.00")
TextBox19 = Replace(TextBox19, ".", ",")
TextBox19 = Format(TextBox19, "#,##0.00")
End Sub
Private Sub TextBox35_AfterUpdate()
Dim LeTexte As String
LeTexte = ""
LeTexte = TextBox35.Value
LeTexte = Application.WorksheetFunction.Substitute(LeTexte, Chr(46), Chr(44))
TextBox35.Value = Format(LeTexte, "0.00")
TextBox35 = Format(TextBox35, "#,##0.00")
End Sub