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

[louatt]

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.

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)]

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

 

[Dranreb]

Bonjour.
Oui, c'est très classique en utilisant l'évènement KeyPress de la TextBox.

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

 

[louatt]

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.

 

[youky(BJ)]

Val ne renvoi pas la partie décimale
En fenêtre Exécution copie
?Val("69Lyon")
et fait Enter

Bruno

 

[Dranreb]

Celui qui serait à privilégier dans votre cas serait CCur(Txt_PuVeh.Text)

 

[louatt]

Re bonsoir super et merci pour vos expliquations complémentaires.

Amitiés