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

youky(BJ)

XLDnaute Barbatruc

• 30 Juillet 2018

• #2

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Juillet 2018

• #3

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

VB:

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

 

Vote positif 0 Vote négatif

louatt

XLDnaute Junior

• 30 Juillet 2018

• #4

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.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 30 Juillet 2018

• #5

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

Bruno

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Juillet 2018

• #6

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

 

Vote positif 0 Vote négatif

louatt

XLDnaute Junior

• 30 Juillet 2018

• #7

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

Amitiés

 

Vote positif 0 Vote négatif