Limiter la saisie à 2 décimales après la virgule

[blord]

Bonjour à tous,

Est-il possible de limiter la saisie à des valeurs numériques avec 2 chiffres après le symbole décimale dans un textbox ?

Merci !

Blord

 

[Pierrot93]

Re : Limiter la saisie à 2 décimales après la virgule

Bonsoir Blord,

essaye le code ci dessous, valide pour un textbox placé sur un USF, à coller dans le module de l'usf où se trouve le textbox à contrôler, attention le séparateur décimale est ici le "poin", à adapter éventuellement :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Exit Sub
    If InStr(1, TextBox1.Value, ".") <> 0 Then
        If Len(TextBox1.Value) > InStr(1, TextBox1.Value, ".") + 1 Then KeyAscii = 0
    End If
End Sub

bonne soirée
@+

 

[blord]

Re : Limiter la saisie à 2 décimales après la virgule

Bonjour Pierrot93, le forum,

Le code fonctionne de façon impeccable !

Merci beaucoup !

Blord