KeyAscii et point décimal

Version imprimable

24/04/2016, 22h06
galopin01

KeyAscii et point décimal
Bonjour,
Je voudrais écrire une macro qui accepte les nombres ET le point décimal.
D'habitude je fais comme ça :
Code:

1 2 3 4 5 6 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case Is < 48, Is > 57 KeyAscii = 0 End Select End Sub
Comment formuler pour intégrer le point décimal ?

Merci.

Salut, à tenter : ici le point est remplacé par une virgule, pas de répétition du séparateur décimal choisi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Const entrees_decimales_permises = ".,0123456789"
Const Point = "."
Const Virgule = ","
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = Asc(Point) Then
        If InStr(TextBox1, Virgule) = 0 Then
            KeyAscii = Asc(Virgule)
        Else
            KeyAscii = 0
        End If
    ElseIf InStr(entrees_decimales_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    ElseIf InStr(TextBox1, Virgule) > 0 And KeyAscii = Asc(Virgule) Then
        KeyAscii = 0
    End If
End Sub

Si c'est l'inverse qui est désiré :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = Asc(Virgule) Then
        If InStr(TextBox1, Point) = 0 Then
            KeyAscii = Asc(Point)
        Else
            KeyAscii = 0
        End If
    ElseIf InStr(entrees_decimales_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    ElseIf InStr(TextBox1, Point) > 0 And KeyAscii = Asc(Point) Then
        KeyAscii = 0
    End If
End Sub

Il y a peut-être plus concis.

24/04/2016, 22h35
clementmarcotte

Ajoute le case qui convient ou bien explique, ou bien cherche decimalseparator dans l'aide de VBA.
24/04/2016, 23h23
galopin01

bonsoir,
Je pense que je vais gratter sur la solution de kiki29...
Je sens venir la prise de tête demain :
decimalseparator me renvoie un point même si c'est la virgule qui est définie dans le panneau de config !

En fait dans les deux cas le contrôle reçoit un point.
Il me semble qu'il suffit de faire un Val(TextBox1) pour envoyer un nombre correctement formaté sur la feuille...
Bon, je clos le sujet je pense que ça ira...
Merci encore
A+

Bonjour
avant de poster une demande on pourrait aller voir dans les contributions ou faire une recherche voir si le sujet n'aurait pas déjà été traité
et peut être même trouver des codes prêt a l'emploi dans une classe ou autre

dans le key press du textbox
Code:

1 2 3 4 5 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If IsNumeric(Chr(KeyAscii)) Or Chr(KeyAscii) = "." Then KeyAscii = KeyAscii Else: KeyAscii = 0 'pour ne pouvoir que taper des nombre avec le point comme séparateur décimal End Sub
ou

Code:

If IsNumeric(Chr(KeyAscii)) Or Chr(KeyAscii) = "," Then KeyAscii = KeyAscii Else: KeyAscii = 0 'pour ne pouvoir que taper des nombre avec la virgule comme séparateur décimal

après si tu tiens a ne te servir que du pavé numérique pour remplir ton textbox et donc te servir du point mais que tu veux avoir une virgule
alors c'est :

Code:

if keyascii=46 then keyascii=44

bonne continuation

25/04/2016, 13h06
galopin01

Bonjour,
patricktoulon :
La première solution ne fonctionne pas (accepte la virgule)
mais ce n'est pas grave la solution de kiki me convient parfaitement.
Merci quand même.
A+
25/04/2016, 13h11
patricktoulon

Re

Re
Je t ai donné. Les deux solutions justement
La. 3 eme te permet d'utiliser uniquement. Le. Pavé. Numérique
25/04/2016, 13h16
galopin01

Bonjour,
Sorry c'est parti trop vite...
Le code N°1 me convient parfaitement.

A+
21/06/2019, 15h59
hmhm2019

keypress

Bonjour,a tout le monde
Je voudrais voir c'est possible un code pour saisir un nombre entier normal et quand je press enter le nombre va transformer au decimal 122356 ==>1223.56

Bonjour
pour gérer la touche enter c'est l'évènement key down et non keypress
tu peut gérer les autres touches avec aussi

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
    Case Is = 13
        TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 2) & "." & Right(TextBox1.Value, 2)
    Case Is > 105
        ' a pour effet d'autoriser que le point comme séparateur décimale  et la touche "," est remplacée par la touche "." 
        'en mémé temps on interdit autre chose que le pavé numérique en une seule ligne 
       If KeyCode = 188 Or KeyCode = 110 Then KeyCode = 110 Else KeyCode = 0
    Case Is < 95: KeyCode = 0
    End Select
End Sub

et il y a d'autre modèle aussi

05/07/2019, 23h49
hmhm2019

1 pièce(s) jointe(s)

salutation

bonjour patrik je veux qaund je veux saisie le jour 13 le curseur va deplacer automatiquement dans le text du mois sans appuyer sur la touche entr
et le montant de repartition montant du text8 =m5 si m1+2+3+4 =m5