saisi de décimales dans un formulaire personnalisé

[pat33bordeaux]

bonjour à tous,

Dans un formulaire personnalisé, je souhaite saisir des décimales dans la rubrique Quantité exemple : brie 3,267
mais bon ça veux pas !
comment faire ?

merci de votre aide !

je ne peux hélas pas joindre le classeur car trop volumineux

A+

 

[Bebere]

Re : saisi de décimales dans un formulaire personnalisé

bonjour Pat

'remplace le point par une virgule
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 46 Then KeyAscii = 44    
End Sub
'du numeric
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case Is < 48, Is > 57
        KeyAscii = 0
    End Select
End Sub
'les 2
Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    Select Case KeyAscii
     Case Asc(",")
        'ne fait rien 
     Case Asc(".")
        KeyAscii = Asc(",") 'Remplace . par virgule
     Case Else
      If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
      End Select
      
End Sub