Discussion :

[Chicard]

Bonjour, voici un petit code qui fonctionne (presque):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub TextBox_ht_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
    'Si la valeur de textbox_ht est un nombre sans virgule alors on rajoute la virgule et deux 0
    TextBox_ht = IIf(IsNumeric(TextBox_ht), Format(TextBox_ht, "###0.00"), "")
 
End Sub
 
Private Sub TextBox_ht_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    'Seule une valeur numérique peut être entré
    If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0
 
    'Si le caractère saisi est le 1er et qu'il s'agit d'un point alors j'ajoute 0 devant
    If Len(TextBox_ht) = 1 And TextBox_ht = "." Then TextBox_ht = "0."
 
    'Si un point est déjà dans la chaine on ne peut pas en taper un autre
    If InStr(TextBox_ht.Value, ".") <> 0 And Chr(KeyAscii) = "." Then KeyAscii = 0
 
    'S'il existe un point dans le TextBox : InStr(TextBox_ht.Value, ".") <> 0
    'et que la longueur de la chaine contenue dans le textbox : Len(TextBox_ht.Value)
    'est supérieure à la place du . dans la chaine + 1 > InStr(TextBox_ht.Value, ".") + 1
    'alors on annule la saisie : Then KeyAscii = 0
    If InStr(TextBox_ht.Value, ".") <> 0 And Len(TextBox_ht.Value) > InStr(TextBox_ht.Value, ".") + 1 Then KeyAscii = 0
 
End Sub

Le souci c'est qui si j'ai le malheur de tapé par exemple 13.2 et que j'appuie sur "entré" ou "tab" il me vide ma textbox au lieu de me mettre 13.20.

Donc mon code complète bien mon entier avec deux 0 mais pas mon chiffre à virgule lorsque il en faut un à la fin.

Une idée?

[Duddy]

Bonsoir le forum,

La textbox retourne un STRING.

Il faut donc convertir:

Code :

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

1
2
3
4
5
6
Private Sub TextBox_ht_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
    'Si la valeur de textbox_ht est un nombre sans virgule alors on rajoute la virgule et deux 0
    TextBox_ht = IIf(IsNumeric(TextBox_ht), Format(TextBox_ht, "###0.00"), "")
 
End Sub

avec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox_ht_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
    'Si la valeur de textbox_ht est un nombre sans virgule alors on rajoute la virgule et deux 0
    Dim vResult As Variant
    TextBox_ht = "13.2"
    vResult = Replace(TextBox_ht, ".", ",")
    vResult = CDbl(vResult)
    TextBox_ht = IIf(IsNumeric(vResult), Format(vResult, "###0.00"), "")
    TextBox_ht = Replace(TextBox_ht, ",", ".")
 
End Sub

J'ai testé sur mon PC, ça a fonctionné, mais je deviens prudent quand à la certitude.

Teste et tu nous diras.

[Chicard]

En rentrant en dur la valeur, ça doit marcher. mais comme ma valeur n'est pas fixe ( 13.2 étant une valeur exemple) cela ne fonctionne pas car j'ai une erreur au niveau de la conversion de ma textbox en double.

Je vais essayé de passé par une variable.
Par ailleurs je ne cherche pas à remplacer mon point par une virgule ce que font tes lignes replace si je ne me trompe pas.

Apparemment c'est un problème de conversion de type.

après tests, avec une valeur en dur j'ai mon 0 qui s'affiche à la fin de ma valeur de type xx.x (ex: 12.30 à l'arrivée) avec une valeur non fixe j'ai bien mon 00 quand c'est un tpe xx (ex:12.00 à l'arrivée).

Mais toujours pas de moyen pour avoir un ou deux zéro à l'arrivé d'un nombre quelconque.

bon je laisse tomber par contre je voudrais bien une solution pour éviter que ma valeur disparaisse lorsque je valide ou change de textbox.

[Duddy]

Bonjour le forum,

Je gérerai la saisie, non pas avec une procédure

"_KeyPress"

mais plutôt avec une procédure

"_Change"

cela pourrait peut-être éviter, que l'action sur la touche entrée, alors que tu es toujours sur la textbox, ne soit prise en compte.

Cette ligne

Code :

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

1
2
    'Si un point est déjà dans la chaine on ne peut pas en taper un autre
    If InStr(TextBox_ht.Value, ".") <> 0 And Chr(KeyAscii) = "." Then KeyAscii = 0

je la gérerai ainsi

Code :

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

1
2
    'Si un point est déjà dans la chaine on ne peut pas en taper un autre
    If InStr(TextBox_ht.Value, ".") <> 0 And Chr(KeyAscii) = "." Then TextBox_ht.Value=TextBox_ht.Value

Ainsi que celle-ci

Code :

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

    If InStr(TextBox_ht.Value, ".") <> 0 And Len(TextBox_ht.Value) > InStr(TextBox_ht.Value, ".") + 1 Then TextBox_ht.Value=TextBox_ht.Value

Teste et dis-nous.

[gFZT82]

Bonjour,

L’expression retournée par ta TextBox n’est pas interprétée comme un nombre, ce qui explique que la valeur disparait lorsque tu quittes la TextBox.

J’ai adapté ton code pour que le point soit remplacé par une virgule.
J’ai effectué le test et le résultat me semble correct.
Par contre, je ne suis pas parvenu à obtenir un résultat probant en modifiant le séparateur décimal dans les options avancées.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub TextBox_ht_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    'Si la valeur de textbox_ht est un nombre sans virgule alors on rajoute la virgule et deux 0
    TextBox_ht = IIf(IsNumeric(TextBox_ht), Format(TextBox_ht, "###0.00"), "")
End Sub
Private Sub TextBox_ht_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    'Seule une valeur numérique peut être entré
    If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0
 
    'Si le caractère saisi est le 1er et qu'il s'agit d'un point alors j'ajoute 0 devant
    If Len(TextBox_ht) = 1 And TextBox_ht = "." Then TextBox_ht = "0,"
 
    'Si le caractère saisi est un point, on le remplace par une virgule
    If Chr(KeyAscii) = "." Then KeyAscii = 44
 
    'Si un point est déjà dans la chaine on ne peut pas en taper un autre
    If InStr(TextBox_ht.Value, ",") <> 0 And Chr(KeyAscii) = "," Then KeyAscii = 0
 
    'S'il existe un point dans le TextBox : InStr(TextBox_ht.Value, ".") <> 0
    'et que la longueur de la chaine contenue dans le textbox : Len(TextBox_ht.Value)
    'est supérieure à la place du . dans la chaine + 1 > InStr(TextBox_ht.Value, ".") + 1
    'alors on annule la saisie : Then KeyAscii = 0
    If InStr(TextBox_ht.Value, ",") <> 0 And Len(TextBox_ht.Value) > InStr(TextBox_ht.Value, ",") + 1 Then KeyAscii = 0
 
End Sub

A ton tour de tester.
Cordialement.

[Chicard]

Mettre _change à la place d'un _keypress ne servira pas à grand chose car je peux retourner dans ma textbox même si je valide le résultat car je sors de mon formulaire pas un bouton.

Les lignes que tu m'as donné

Code :

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

 If InStr(TextBox_ht.Value, ".") <> 0 And Len(TextBox_ht.Value) > InStr(TextBox_ht.Value, ".") + 1 Then TextBox_ht.Value=TextBox_ht.Value

ne résolve pas mon souci.

Je ne veux pas changer mon point par une virgule, et je pense pas que ce soit la solution pour obtenir un zéro dans le cas d'un nombre du style 12.3

J'ai vu hier soir que j'avais false dans le retour de IsNumeric(textbox_...)

J'ai mon résultat qui passe sans le zéro à la fin en le passant dans une variable mais je perds aussi les deux 00 automatique lors de la mise d'un entier dans ma textbox.

Au pire avec un seul chiffre pas de souci ma colonne devrait le gérer mais pas si j'ai plusieurs valeurs


Aucun affichage dans ma cellule avec le passage par variable string. Vu que la conversion d'un string ne marche pas je me retrouve dans une impasse. J'ai vraiment plus aucune idée.