Sujet Précédent Sujet Suivant

Implantation d'une MsgBox

Résolu/Fermé
milan25 Messages postés 37 Date d'inscription lundi 14 avril 2014 Statut Membre Dernière intervention 4 juillet 2014 - 3 juil. 2014 à 14:31
milan25 Messages postés 37 Date d'inscription lundi 14 avril 2014 Statut Membre Dernière intervention 4 juillet 2014 - 4 juil. 2014 à 09:19
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

1 réponse

Réponse 1 / 1
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
3 juil. 2014 à 15:06
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 With
End Sub

si cela convient, faites les modifs pour les autres outils
0
milan25 Messages postés 37 Date d'inscription lundi 14 avril 2014 Statut Membre Dernière intervention 4 juillet 2014 4
Modifié par milan25 le 3/07/2014 à 16:03
Merci pour ta réponse.
Malheureusement il m'affiche bien la MsgBox d'erreur mais il plante juste après:

Erreur d'exécution '6' :
Dépassement de capacité
0
milan25 Messages postés 37 Date d'inscription lundi 14 avril 2014 Statut Membre Dernière intervention 4 juillet 2014 4
3 juil. 2014 à 16:04
Autant pour moi, ça marche nickel
Merci à toi
0
milan25 Messages postés 37 Date d'inscription lundi 14 avril 2014 Statut Membre Dernière intervention 4 juillet 2014 4
3 juil. 2014 à 16:12
En fait cela fait planter l'incrémentation ou la décrémentation du stock.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
3 juil. 2014 à 17:51
Re,

Je ne vois pas bien le rapport avec ce que vous ecrivez
0
milan25 Messages postés 37 Date d'inscription lundi 14 avril 2014 Statut Membre Dernière intervention 4 juillet 2014 4
4 juil. 2014 à 07:50
Alors ton programme fonctionne lorsque je rentre mal ma ref il m'indique l'erreur a l'aide de la MsgBox par contre pour je ne sais qu'elle raison si je rentre une ref valide à laquelle je veux ajouter ou enlever le nombre d'outils, en validant par le bouton 'enregistrer le stock' il m'affiche un message d'erreur.
je comprend pas pourquoi cela interfère avec mon bout de programme.
Merci
0

Discussions similaires

Logiciel de plan pour rayonnage Gratuit
ecoracks -
flyflo -

1 réponse
Msgbox dans un .bat
angel77167 -
angel77167 -

4 réponses
[VB]MsgBox avec variable
Reese -
Anonymatum -

5 réponses
MessageBox en PHP
PcKiller -
Mrhack38 -

3 réponses
Vbs: MsgBox avec bouton personnaliser ?
ElexXVII -
f894009 -

3 réponses