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