bonjour,
je voudrais juste savoir si il est possible de remplacer la virgule par le point du clavier numérique.
J'ai essayer plusieurs chose trouver à droit et à gauche mais sa ne fonctionne pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
'procédure permettant le formatage automatique en euros
Private Sub tfacturation_AfterUpdate()
With Tfacturation
If IsNumeric(.Value) Then
.Value = Format(.Value, "# ##0.00 €")
.ForeColor = IIf(.Value < 0, vbRed, vbBlack)
Else
MsgBox "Erreur de saisie", 64, "la saisie doit être numérique"
End If
End With