(RESOLU)nombre avec virgule

[chaelie2015]

Bonjour Forum
ci dessous le code

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then _
        KeyAscii = 0
End Sub

comment autoriser (ajouter) dans ce code la virgule (nombre avec virgule)
Salutations

 

[pierrejean]

Re : nombre avec virgule

Bonjour chaelie

A tester:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456,789", Chr(KeyAscii)) = 0 Then _
        KeyAscii = 0
End Sub

 

[Dranreb]

Re : nombre avec virgule

Bonjour.

Vous pouvez aussi autoriser le point, à transformer en virgule, comme ça :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As  MSForms.ReturnInteger)
KeyAscii = Asc(Mid$(Chr$(0) & "0123456789,,", InStr("0123456789,.", Chr$(KeyAscii)) + 1, 1))
If KeyAscii = 0 Then Beep
End Sub

 

[chaelie2015]

Re : nombre avec virgule

Bonjour pierre, bernard
merci pour les réponses
pblm résolut
SALUTATIONS