chaelie2015
XLDnaute Accro
Bonjour Form
je souhaite calculer la diff entre TextBox18 et TextBox19 dans le TextBox35
j'ai utilisé ces codes
format chiffre et deux valeur après le virgule (point ou virgule)
mon souci est quand je saisi dans TextBox19 une valeur avec point et non virgule il m'affiche une erreur d’exécution13
Incompatibilité de type
au niveau de :
--------------
TextBox35.Value = CDbl(TextBox18) - CDbl(TextBox19)
--------------
MERCI PAR AVANCE
je souhaite calculer la diff entre TextBox18 et TextBox19 dans le TextBox35
j'ai utilisé ces codes
format chiffre et deux valeur après le virgule (point ou virgule)
Code:
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
Code:
End Sub
Sub Rest_apayer()
If TextBox18 <> "" And TextBox19 <> "" Then
TextBox35.Value = CDbl(TextBox18) - CDbl(TextBox19)
TextBox35 = Replace(TextBox35, ".", ",")
TextBox35 = Format(TextBox35, "#,##0.00")
Else: TextBox35 = ""
End If
End Sub
Private Sub TextBox18_Change()
Rest_apayer
End Sub
Private Sub TextBox19_Change()
Rest_apayer
End Sub
Private Sub TextBox35_Change()
Rest_apayer
End Submon souci est quand je saisi dans TextBox19 une valeur avec point et non virgule il m'affiche une erreur d’exécution13
Incompatibilité de type
au niveau de :
--------------
TextBox35.Value = CDbl(TextBox18) - CDbl(TextBox19)
--------------
MERCI PAR AVANCE
Dernière édition: