Discussion :

[YOP33]

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 :

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

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 :

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

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 :

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

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 :

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

 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

[LeForestier]

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

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

[YOP33]

Bonsoir

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

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

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

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 :

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

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

[kiki29]

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

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" & 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

[YOP33]

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

Code :

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

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

[LeForestier]

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

Code :

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

 ActiveCell.Value = TextBox5

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.

[kiki29]

Re,

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