Gestion de deux textbox de quantité

Bonjour, je souhaite permettre la saisie de la quantité des produits soit par carton soit par unité (paquet) soit en carton et unités . j'ai donc crée deux textbox : tbcarton et tbpaquet .
l'utilisateur saisie dans la textbox tbcarton lorsque le client demande un carton du produit et l'utilisateur saisie dans la textbox tbpaquet lorsque le client demande un paquet du produit et enfin l'utilisateur saisie dans les deux textbox tbcarton et tbpaquet lorsque le client demande un carton et un paquet du produit.

exemple de saisie

tbcarton tbpaquet
5 0
tbcarton tbpaquet
0 2
tbcarton tbpaquet
3 5

je contrôle les saisies du textbox tbcarton avec le code ci dessous,

If (cboServices.SelText <> "") Then
If (IsNumeric(Tbcarton.Value) = False) Then MsgBox ("La quantité saisie n'est pas un nombre, veuillez corriger")
Exit Sub

je souhaite pouvoir contrôler la saisie des deux textbox . comment modifier le code afin de contrôler les deux textbox. l'un des deux textbox peut rester vide mais pas les deux. merci pour votre aide

Bonjour,

Code à placer dans votre Userform ou dans le module de votre onglet :

Private Sub tbcarton_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Private Sub tbpaquet_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

A la validation, testez les quantités :

   If Val(tbcarton) = 0 And Val(tbpaquet) = 0 Then
      MsgBox "Saisissez au moins une quantité !"
      Exit Sub
   End If

ok ca marche merci

Rechercher des sujets similaires à "gestion deux textbox quantite"