Discussion :

[didier.007]

Bonjour,

Je veux force l’utilisateur a rentrer, dans un textbox un chiffre décimal , avec de chiffres après la virgule.
J’ai un bout de code, mais dès que je tape le premier chiffre il l’affiche direct avec deux zéros après la virgule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox.Value = Format(TextBox.Value, "0,00")

Pourriez vous m’aider?

Merci d’avance

Didier

[Ericcool02]

Bonjour didier.007

Une méthode :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Change()
    If Right(TextBox1, 1) = "." Or Right(TextBox1, 1) = "," Then TextBox1.MaxLength = Len(TextBox1) + 2
End Sub

Ne pas oublier que si des opérations doivent être exécutées depuis les TextBoxs, il faut impérativement utiliser le "." comme séparateur.

Bonne soirée

[Alex020181]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox.Value = Format(TextBox.Value, "0,00")

Ce code que tu utilises ne permet pas de forcer l'utilisateur à quoi que ce soit.
Il met en format décimale à 2 zéros la saisie utilisateur. Il modifie uniquement l'affichage de la saisie.

Tu peux vérifier que la saisie soit comme tu le souhaites avec, par exemple;
- isnumeric pour vérifier que la saisie est bien un chiffre
- puis vérifier que la saisie *100 - la conversion en entier de la saisie est 0

[hyperion13]

Salut
Une piste qui consiste à interdire la frappe de toutes les touches du clavier, ainsi que toutes celles du NumPad sauf les touches de 0 à 9 et Enter
Il faut saisir le nombre sans le séparateur de décimal. Ça plait ou non.
En L4 à toi de choisir le séparateur de décimal [.] ou [,]. Si tu utilises la valeur de la TextBox pour un calcul il faut alors privilégier le [.]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case Is = 13 ' touche Enter
            TextBox.Value = Left(TextBox.Value, Len(TextBox.Value) - 2) & "." & Right(TextBox.Value, 2)
        Case Is > 105 'voir liste ici http://blogs.longwin.com.tw/lifetype/key_codes.html
            KeyCode = 0
        Case Is < 95
            KeyCode = 0
    End Select
End Sub

[Ericcool02]

Bonjour le fil

@hyperion13 : Ton code ne fonctionne pas comme il le devrait. On peut entrer des lettres et si d'aventure on entre que des chiffres avec séparateur, à la sortie du TextBox
on ne respecte pas le choix du demandeur, à savoir 2 chiffres après la virgule.
@+ Eric

[Alex020181]

Attention avec le code ci-dessus. Il n'est pas complet.
Il faut également autoriser les touches de suppression et les flèches directionnelles gauche et droite

[Ericcool02]

Bonjour le fil

Le code (condensé et application de divers codes de Pijaku et Patricktoulon) qui s'applique à un TextBox :
- La saisie de valeurs uniquement numériques
- La saisie du "." comme séparateur (opérations depuis les TextBoxs si besoin)
- La frappe d'un nombre à 2 décimales avec si erreur la possibilité d'effacer (touche Supp) puis de refrapper un nombre entier ou décimal.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub textBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not Chr(KeyAscii) Like "[0-9-.]" Then KeyAscii = 0
End Sub
 
Private Sub TextBox1_Change()
If Len(TextBox1) = 0 Then TextBox1.MaxLength = 255
If Right(TextBox1, 1) = "." Then TextBox1.MaxLength = Len(TextBox1) + 2
End Sub

Je pense n'avoir rien oublié - En espérant que Didier Bond revienne aux nouvelles
Bon appétit
@+ Eric

[hyperion13]

Salut
Vous en êtes encore au stade d'utiliser les flèches directionnelles pour vous déplacer dans des objets ?
Cela me fait penser à la pub qui passe actuellement avec cette femme qui saisie une clé wifi et qui n'arrive pas à faire la différence en zéro et O.
Allez, une simple pression sur la touche Del et hop on ressaisit la valeur, bien plus efficace et pertinent.

Attention avec le code ci-dessus. Il n'est pas complet.
Il faut également autoriser les touches de suppression et les flèches directionnelles gauche et droite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    'http://vbtour.free.fr/codes.htm
    'http://blogs.longwin.com.tw/lifetype/key_codes.html
    Select Case KeyCode
        Case Is = 13 ' touche Enter
            TextBox.Value = Left(TextBox3.Value, Len(TextBox.Value) - 2) & "," & Right(TextBox.Value, 2)
        Case Is = vbKeyDelete
            Me.TextBox.Value = ""
        Case Is > 105
            KeyCode = 0
        Case Is < 95
            KeyCode = 0
    End Select
End Sub

[hyperion13]

Salut

@hyperion13 : Ton code ne fonctionne pas comme il le devrait. On peut entrer des lettres et si d'aventure on entre que des chiffres avec séparateur, à la sortie du TextBox
on ne respecte pas le choix du demandeur, à savoir 2 chiffres après la virgule.
@+ Eric

Désolé mais le code proposé fonctionne très bien.

[Ericcool02]

Re le fil

@hyperion13 - Oui désolé, ça fonctionne Parfaitement. En fait, je n'ai pas regardé ton code correctement car j'aurais du m'apercevoir que tu avais indiqué TextBox au lieu de TextBox1. Désolé de cette fâcheuse méprise.
Pas beaucoup dormi donc gros manque de sommeil et plein de buée dans mes zeuils......

Milles excuses - Bonne après-midi
@+ Eric