(RESOLU)Erreur d'execution 13 dans le code

[chaelie2015]

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)

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

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 Sub

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

 

[Roland_M]

Re : Erreur d'execution 13 dans le code

bonjour,

essais comme ceci avec Val: CDbl(Val(TextBox19))

car dans les textbox c'est de l'alphanumérique !

 

[chaelie2015]

Re : Erreur d'execution 13 dans le code

Bonjour Roland
merci bien c'est parafait, mais j'ai un autre souci, la valeur affichée dans le TextBox35 n'apparait pas les chiffre après la virgule ??

 

[chaelie2015]

Re : Erreur d'execution 13 dans le code

Re
mon code initial ça marche parfaitement avec les chiffres en virgule (ex 10 231,25) mais si je sais un point au lieu ( ex 10 231.25) la virgule ça bug ???
A+

 

[Dranreb]

Re : Erreur d'execution 13 dans le code

Bonjour.
Essayez plutôt des procédures de ce genre :

Private Sub TextBox18_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
End Sub

 

[Roland_M]

Re : Erreur d'execution 13 dans le code

re

EDIT: modification

transfert par des variables

Dim V1#, V2#
X$ = Replace(TextBox18, ",", "."): V1 = Val(X$)
X$ = Replace(TextBox19, ",", "."): V2 = Val(X$)
TextBox35 = V1 - V2


sinon la méthode Dranreb !?

 

[chaelie2015]

Re : Erreur d'execution 13 dans le code

Bonjour
merci a vous les deux
c'est parfait
SALUTATIONS