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

blord · 24 Juillet 2008

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 · 24 Juillet 2008

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 :

Code:

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 · 24 Juillet 2008

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

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

blord

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

blord

XLDnaute Impliqué

Discussions similaires

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

blord

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

blord

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency