Point à la place de la virgule

Bonsoir,

J'ai formulaire avec trois TextBox "Débit, Crédit et contrevaleur en Franc"

Lorsque je met un point à la place de la virgule aux textbox débit ou crédit J'ai un message d'erreur "Incompatibilité de type".

Mon code:

Private Sub TextBoxDébit_Change()
 If TextBoxDébit <> "" Then TextBoxContValeur = Format(TextBoxDébit * 6.55957, "0.00 F")
 TextBoxCrédit.Visible = IIf(TextBoxDébit <> "", 0, 1)
 Label6.Visible = False
End Sub

Private Sub TextBoxCrédit_Change()
If TextBoxCrédit <> "" Then TextBoxContValeur = Format(TextBoxCrédit * 6.55957, "0.00 F")
TextBoxDébit.Visible = IIf(TextBoxCrédit <> "", 0, 1)
 Label5.Visible = False
End Sub

Je vous remercie d'avance.

Un fichier valant mieux qu'un long discours, veuillez voir la pièce jointe.

Cordialement

Max

Bonsoir

A tester

Bonsoir Banzai64

Nickel exactement se donc j'avais besoin, juste une petite faveur comment mettre les TextBox débit et crédit en format €

Et merci beaucoup bonne soirée

Max

Bonsoir

Le format sera effectif quant tu quittes la TextBox

Bonjour Banzai64,

Je te remercie et te souhaite une bonne journée

@+

Max