Discussion :

[apdf1]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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