Inputbox bug

Version imprimable

Inputbox bug

Mon problème c'est de savoir comment faire pour que la imputbox ne bug pas lorsque j'entre "qfqfef" car l'utilisateur ne doit entrer que des chiffres. Je suppose que c'est le variables mais sa ne marche pas lorsque je les définis, pourriez-vous m'aider.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub Total_Enter() If OA = "" Then MsgBox ("L'OA n'est pas renseigné") Else Quantité = InputBox("Combien de pièces ?") ' <----Si je ne rentre pas des chiffres newpoids = InputBox("Quel poids ?") ' <----Sa me met en mode débugage If Quantité = "" Then Exit Sub End If Total = Quantité * newpoids Poids = newpoids End If End Sub

Salut

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
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
Dim Total,Poids,OA,Quantite,newpoids
 
Private Sub Total_Enter()
Dim Quantite,newpoids
 
If OA = "" Then
        MsgBox ("L'OA n'est pas renseigné")
        Exit Sub
        Else
        Quantite = InputBox("Combien de pièces ?")
        If Quantite = "" Then
                MsgBox ("Vous devez indiquer la Quantité")
                Exit Sub
        End if
        If IsNumeric(Quantite) then
                newpoids = InputBox("Quel poids ?")
                If newpoids = "" Then
                        MsgBox ("Vous devez indiquer le poids")
                        Exit Sub
                End If
                If IsNumeric(newpoids) then
                        Total = Quantite * newpoids
                        Poids = newpoids
                        Else
                        MsgBox ("Pour le poids, vous devez entrer un chiffre")
                        Exit Sub
                End If
                Else
                MsgBox ("Pour la quantité, vous devez entrer un chiffre")
                Exit Sub
        End if
End If
 
End Sub
 
OA = 1
Total_Enter
 
Msgbox "total: " &  Total & VbNewLine & "Poids: "  &  Poids

01/07/2011, 19h25
DAUDET78

pour ma part, je fais une InputBox sur mesure avec une form contenant un label (pour la saisie) et deux boutons OK et Annulation

dans le label, je teste le Ascii et si ce n'est pas un numérique ou une flèche, je fais un Beep et Ascii=0
01/07/2011, 19h57
ProgElecT

Salut
@ DAUDET78, ;) , je pensais être encore sur le Forum VBSCript et j'ai répondu dans se sens :mrgreen:

J'utilise un truc du genre

Code:

1
2
3
4
5
6
7
8
Private Sub Valeur_KeyPress(KeyAscii As Integer) ' sur un objet Label
Select Case KeyAscii
    Case Asc("0") To Asc("9"), 8, Asc("."), Asc(",") ' numérique, correcteur et séparateurs décimaux acceptés
    Case Else
        KeyAscii = 0: Beep  ' les autres sont refusés
End Select
 
End Sub

Faut mettre ça dans une forme avec les bouton "OK" et "Annuler"

02/07/2011, 21h26
cluniverselle

utilise isnumeric pour tester le contenu du textbox avant de poursuivre l'execution du code dans un bloc while et definir egalement une condition de sortie en cas d'abandon
02/07/2011, 21h31
DAUDET78

Citation:

Envoyé par cluniverselle

utilise isnumeric pour tester ......

C'est insuffisant, il faut aussi valider le code 9