Implantation d'une MsgBox
Résolu
milan25
Messages postés
37
Date d'inscription
Statut
Membre
Dernière intervention
-
milan25 Messages postés 37 Date d'inscription Statut Membre Dernière intervention -
milan25 Messages postés 37 Date d'inscription Statut Membre Dernière intervention -
Bonjours à tous,
J'ai créé une banque d'outils sous excel pour une entreprise et la je suis bloqué pour une petite sécurité que je souhaite mettre.
J'ai créé par l'intermédiaire d'un UserForm une gestion des outils et c'est dans c'est dans ce bout de programme que je souhaite intervenir.
Il faut entrer une référence soit par la liste déroulante soit à la main et la il m'affiche le nombre d'outils en stock. Par contre quand je saisi une référence qui n'est pas correcte ou même inexistante le programme se met en erreur. Je voudrais qu'un MsgBox apparaisse pour m'informer de l'erreur et que je puisse rependre ma saisi.
Je vous mette mon programme sur cjoint.
La rubrique ce trouve dans gestion des stocks après le bouton banque d'outils.
Merci beaucoup
https://www.cjoint.com/?DGdoEZoHHmH
J'ai créé une banque d'outils sous excel pour une entreprise et la je suis bloqué pour une petite sécurité que je souhaite mettre.
J'ai créé par l'intermédiaire d'un UserForm une gestion des outils et c'est dans c'est dans ce bout de programme que je souhaite intervenir.
Il faut entrer une référence soit par la liste déroulante soit à la main et la il m'affiche le nombre d'outils en stock. Par contre quand je saisi une référence qui n'est pas correcte ou même inexistante le programme se met en erreur. Je voudrais qu'un MsgBox apparaisse pour m'informer de l'erreur et que je puisse rependre ma saisi.
Je vous mette mon programme sur cjoint.
La rubrique ce trouve dans gestion des stocks après le bouton banque d'outils.
Merci beaucoup
https://www.cjoint.com/?DGdoEZoHHmH
1 réponse
Bonjour,
une facon de faire, modif pour fraise:
si cela convient, faites les modifs pour les autres outils
une facon de faire, modif pour fraise:
Private Sub ComboBoxRefFraise_Change()
Dim lig, Nbr, retval
With Worksheets("Réf_fraises")
'If ComboBoxRefFraise <> "Réf_fraises!g3:g" Then
'Afficher un message d'erreur
'MsgBox "La référance est inéxistante ou mal renseignié"
'Quitter la procédure sans enregistrer les données
'End If
'Nombre de fois la ref
Nbr = Application.CountIf(.Columns("G"), ComboBoxRefFraise)
If Nbr > 0 Then ' Ok
lig = .Columns("G").Find(ComboBoxRefFraise, , , xlWhole).Row
Lbl_Stock_Fraise.Caption = .Range("J" & lig)
Else ' Pas Ok
retval = MsgBox("Reference " & ComboBoxRefFraise & " Inexistante dans la liste !!!!", vbCritical, "Recheche RefFraise")
ComboBoxRefFraise = ""
End If
End With
End Sub
si cela convient, faites les modifs pour les autres outils
Malheureusement il m'affiche bien la MsgBox d'erreur mais il plante juste après:
Erreur d'exécution '6' :
Dépassement de capacité
Merci à toi
Je ne vois pas bien le rapport avec ce que vous ecrivez
je comprend pas pourquoi cela interfère avec mon bout de programme.
Merci