Probléme MsgBox avec if

Bonjour le forum,

J'ai essayer d'ajouter un msg box au clic d'un bouton qui me dit, si je veut quand même ouvrir le UserForm alors que la quantité du produit choisi est a 0. le problème c'est qu'il m'affiche un message d'erreur. Auriez-vous une solution pour ce petit problème? merci de votre aide.

Private Sub btnLivraison_Click()
If Me.Cbx_produit = "" Then
  MsgBox "Veuillez d'abord sélectionner un produit.", vbOKOnly + vbCritical, "Information"
  Else
  If Me.TextQuantite = "0" Then
    MsgBox("La quantité de ce produit est à 0, voulez-vous quand même créer le bon de livraison?", vbYesNo + vbExclamation, "Quantité Produit insufisant") = vbYes
    Else
    'Permet d'ouvir le formulaire de Bon De Livraison
    frmBonLivraison.Show
  End If
End If
End Sub

Cordialement.

Bonjour,

Peut-être :

If Me.Cbx_produit.ListIndex = -1 Then

Bonjour minakashi, Eric Kergresse, le forum,

Non testé :

Private Sub btnLivraison_Click()

If Me.Cbx_produit = "" Then

MsgBox "Veuillez d'abord sélectionner un produit.", vbCritical, "Information"

Me.Cbx produit.Set Focus

Exit Sub

End If

If Me.TextQuantite = "0" Then

If MsgBox("La quantité de ce produit est à 0, voulez-vous quand même créer le bon de livraison?", _

vbQuestion + vbYesNo, "Quantité Produit insuffisante") = vbYes Then

'Permet d'ouvir le formulaire de Bon De Livraison

frmBonLivraison.Show

End If

End If

End Sub

Cordialement,

Bernard

Bonjour Eric Kergresse, bbb38,

Merci pour vos réponse, bbb38 votre programme fonctionne très bien merci. Il manque juste un petit détail, quand je choisi un produit ou la quantité est supérieur a 0 il ce passe rien quand je veut ouvrir le formulaire. Avez-vous une idée de comment je pourrais faire? merci d'avance.

Cordialement

Bonjour minakashi, Eric Kergresse, le forum,

Mille excuses pour cette omission. Code corrigé (théoriquement, il serait préférable de convertir, la valeur du TextBox en variable numérique) :

Private Sub btnLivraison_Click()

If Me.Cbx_produit = "" Then

MsgBox "Veuillez d'abord sélectionner un produit.", vbCritical, "Information"

Me.Cbx produit.Set Focus

Exit Sub

End If

If Me.TextQuantite = "0" Then

If MsgBox("La quantité de ce produit est à 0, voulez-vous quand même créer le bon de livraison?", _

vbQuestion + vbYesNo, "Quantité Produit insuffisante") = vbYes Then

'Permet d'ouvir le formulaire de Bon De Livraison

frmBonLivraison.Show

End If

ElseIf Me.TextQuantite <> "0" Then

frmBonLivraison.Show

End If

End Sub

Cordialement,

Bernard

Bonsoir bbb38,

C'est bon merci j'avais réussi a trouver comment faire. J'aurais peut-être du l'écrire dans le poste. Fin bref merci quand même pour ton aide. Passe une bonne soirée!

Cldt.