XL 2016 [RESOLU]Utilisation du . pavé numérique au lieu de la ,

louatt

XLDnaute Junior
Bonjour à tous,

j'utilise le code ci-dessous dans une textbox pour faire afficher à mon résultat le signe €.

Il fonctionne trés bien sauf que si j'itilise le point du pavé numérique ça ne fonctionne pas par exemple 145.33 reste affiché ainsi, par contre si je saisi 145,33 alors le résultat s'affiche 145,33 €

Est-il possible de pouvoir utiliser le . du pavé numérique afin de gagner en facilité lors des saisies?

Par avance je vous remercie pour votre aide et vos lumières.

Cordialement.

Code:
Private Sub Txt_PuVeh_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' pour mettre le format € sur le textbox
Txt_PuVeh = Format(Txt_PuVeh, "#,##0.00 €")
End Sub
 

youky(BJ)

XLDnaute Barbatruc
Bonjour louatt,
Copier en intégralité le code
il remplace le point en virgule dés l'appuis de la touche.

Private Sub Txt_PuVeh_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Txt_PuVeh = Replace(Txt_PuVeh, ".", ",")
End Sub

ensuite tacellule=cdbl(Txt_PuVeh) pour mettre en numéric sinon c'est du texte
Bruno
 

louatt

XLDnaute Junior
Bonjour youky(bj) et dranreb,

merci beaucoup pour votre aide, ça marche impéccable.
Petite question complémentaire:
au lieu de =cdbl(Txt_PuVeh) j'utilise =Val(Txt_PuVeh)

c'est pareil ou il y en a un à priviligier?

Cordialement.
 

Discussions similaires