Discussion :

[galopin01]

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

Code :

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

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.

[kiki29]

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

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
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 :

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

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.

[clementmarcotte]

Ajoute le case qui convient ou bien explique, ou bien cherche decimalseparator dans l'aide de VBA.

[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+

[patricktoulon]

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 :

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

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 :

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

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 :

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

if keyascii=46 then keyascii=44

bonne continuation

[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+

[patricktoulon]

Re
Je t ai donné. Les deux solutions justement
La. 3 eme te permet d'utiliser uniquement. Le. Pavé. Numérique

[galopin01]

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

A+

[hmhm2019]

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

[patricktoulon]

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 :

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

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

[hmhm2019]

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