Numerique dans textBox

Version imprimable

17/01/2010, 16h23
YOP33

Numerique dans textBox
Bonjour

Je patauge un peu encore!!! j'ai deux problemes dans et avec un textbox
La saisie dans ce textbox5 ne doit etre que numérique je le fais avec ce code
Code:

1 2 3 4 Private Sub textBox5_keyPress(ByVal keyAscii As MSForms.ReturnInteger) 'Impose une valeur de poid avec le clavier numérique If InStr("0123456789.", Chr(keyAscii)) = 0 Then keyAscii = 0 End Sub
Ensuite je vérifie que la valeur entrée n'est pas supérieur avec le textBox4 avec ce code
Code:

1 2 3 4 5 6 7 8 Private Sub TextBox5_Change() Dim A Dim B A = TextBox4 B = TextBox5 If B > A Then MsgBox "Le Poid Indiqué est Superieur au Poid Initial", vbCritical End If
Mais dès que j'utilise la virgule du clavier numérique le message s'affiche !!!
J'ai donc remplacé le "." du clavier par la virgule du clavier alphabetique çà marche mais je trouve çà dommage!!

Code:

If InStr("0123456789,", Chr(keyAscii)) = 0 Then keyAscii = 0

2eme Problème
le nombre saisie dans ce textbox5 est inscrits dans une feuil de calcul avec ce code

Code:

ActiveCell.Value = TextBox5

Ma feuil de calcul voit un format texte elle à surement raison !!!
Peut on avoir un format nombre directement ?
Merci d'avoir pris le temps de lire

Bonjour,
Problème récurrent entre feuille et UF.
essaye ces 2 solutions..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub TextBox5_Change()
    If Not IsNumeric(TextBox5) Then
        'éventuellement mettre un message
        TextBox5 = ""
        TextBox5.SetFocus
        Exit Sub
    End If
    If CDbl(TextBox5) > CDbl(TextBox4) Then
        MsgBox "Le Poid Indiqué est Superieur au Poid Initial", vbCritical
        TextBox5 = ""
        TextBox5.SetFocus
    End If
End Sub
 
Sub Memorise()
    'ou ActiveCell si tu préfère
    Cells(Lig, Colonne) = CDbl(Replace(TextBox5, ".", ","))
End Sub

A+

Bonsoir

Merci d'avoir répondu aussi rapidement j'ai essayé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TextBox5_Change()
    If Not IsNumeric(TextBox5) Then
        'éventuellement mettre un message
        TextBox5 = ""
        TextBox5.SetFocus
        Exit Sub
    End If
    If CDbl(TextBox5) > CDbl(TextBox4) Then
        MsgBox "Le Poid Indiqué est Superieur au Poid Initial", vbCritical
        TextBox5 = ""
        TextBox5.SetFocus
    End If
End Sub

à la place de celui ci

Code:

1
2
3
4
5
6
7
8
9
Private Sub TextBox5_Change()
    Dim A
    Dim B
    A = TextBox4
    B = TextBox5
    If B > A Then
    'MsgBox "Le Poid Indiqué est Superieur au Poid Initial", vbCritical
    End If
End Sub

et quand j'appuis sur le point du clavier numerique çà à pour effet de supprimer les chiffres saisie !!
L'autre code n'a aucun effet

Code:

1
2
3
4
Sub Memorise()
    'ou ActiveCell si tu préfère
    ActiveCell  = CDbl(Replace(TextBox5, ".", ","))
End Sub

Je ne peux pas désigné la cellule active car je prends la derniere de libre

Salut,à tester pour la sasiie, permet uniquement une saisie décimale, remplace automatiquement le . par une , ,interdit la saisie d'un second . ou ,

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" & vbCr & vbBack
Const Point = "."
Const Virgule = ","
 
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = Asc(Point) Then
        If InStr(TextBox5, Virgule) = 0 Then
            KeyAscii = Asc(Virgule)
        Else
            KeyAscii = 0
        End If
    ElseIf InStr(entrees_decimales_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    ElseIf InStr(TextBox5, Virgule) > 0 And KeyAscii = Asc(Virgule) Then
        KeyAscii = 0
    End If
End Sub

17/01/2010, 20h03
YOP33

Bonsoir
Super :ccool: çà marche j'ai juste suprimé la virgule dans

Code:

Const entrees_decimales_permises = ".,0123456789" & vbCr & vbBack

mais j'ai toujour le 2eme problème sans vouloir abuser !!! Peut on renseigner la feuil avec un format Nombre ? ou corriger dans la cellule active de la feuil le format texte en format nombre?

merci
17/01/2010, 20h18
LeForestier

Citation:

Envoyé par YOP33

2eme Problème
le nombre saisie dans ce textbox5 est inscrits dans une feuil de calcul avec ce code

Code:

ActiveCell.Value = TextBox5

Citation:

Je ne peux pas désigné la cellule active car je prends la derniere de libre

Je suppose que tu veux rire ???

Et ton textbox il est sur quoi ? Un Userform ou une feuille.

Re,

Code:

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
26
27
Option Explicit
 
Const entrees_decimales_permises = ".,0123456789" & vbCr & vbBack
Const Point = "."
Const Virgule = ","
 
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = Asc(Point) Then
        If InStr(TextBox5, Virgule) = 0 Then
            KeyAscii = Asc(Virgule)
        Else
            KeyAscii = 0
        End If
    ElseIf InStr(entrees_decimales_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    ElseIf InStr(TextBox5, Virgule) > 0 And KeyAscii = Asc(Virgule) Then
        KeyAscii = 0
    End If
End Sub
 
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox5.Text = Format(TextBox5, "#,##0.00")
    ' si TextBox5 vide
    If IsNumeric(TextBox5) Then
        ActiveCell = CDbl(TextBox5)
    End If
End Sub