implantation d'une MsgBox Résolu/Fermé

Question

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

f894009 · Answer

Bonjour,

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 WithEnd Sub

si cela convient, faites les modifs pour les autres outils

Implantation d'une MsgBox

1 réponse

Discussions similaires