Ecriture code msgbox
Bonjour à tous !
J'utilise actuellement un fichier Excel pour la gestion de mes stock.
Le fichier fonctionne via un journal d'activité (feuille journal) qui reporte les mouvement de stock dans une feuille inventaire.
J'aimerai pouvoir compléter le processus.
Lorsque je veux saisir une sortie de stock, donc un retrait, j'aimerai que l'on contrôle si le résultat est <0.
Est si c'est le cas afficher un message d'erreur du type " Impossible, stock insuffisant"
le mouvement n'aurai donc pas lieu.
Je ne vois pas comment écrire ce code. Sachant que la cellule contrôlé doit être la cellule J de l'article concerné ( feuille inventaire)
je joint le fichier car je ne suis pas sur d'être clair...
merci d'avance à tous
A votre disposition,
Cordialement,
Manoss
Bonjour,
Un grand merci c'est parfait !
Bonjour,
Je viens de m'apercevoir qu'avec ce code, si la quantité est trop faible je ne peu pas en ajouter non plus...
Je doit changer quelle ligne? =>
Dim C0, C1 As Range
Dim reponse As String
Set C0 = Sheets("Journal d'activité").Range("E4")
Set C1 = Sheets("Inventaire").Columns("B:B").Find(C0)
If C1 Is Nothing Then
reponse = MsgBox("Article non trouvé", vbOKOnly)
ElseIf C1.Offset(0, 8) < C0.Offset(0, 1) Then Je pense que c'est cela qu'il faut changer mais je ne sais pas par quoi?
reponse = MsgBox("Stock insuffisant !", vbOKOnly)
Else
Bonsoir,
A priori on ne peut pas faire une opération - et + en même temps.
Si le stock est insuffisant, il faut d'abord faire une opération "+" et ensuite une opération "-".
Je répond de mémoire ayant supprimé le fichier.
Bonjour,
Le problème c'est que si j'ai un stock négatif je ne peu pas faire d'opérations. Ni retrait Ni ajout...
Cordialement,
Ce qui semble à priori logique : on ne peut pas sortir plus que ce qui se trouve dans le stock, donc pas de stock négatif possible...
Je regarde la faisabilité du négatif ce soir.
Oui oui je suis d'accord.
J'avais cependant déjà des stock négatif et maintenant je ne peux plus rajouter des quantités afin de remettre le stock à zéro ^^
Bonne journée
Cordialement,
Si c'est pour régulariser le fichier avant de rendre les stocks négatifs impossibles, il suffit de neutraliser
ElseIf C1.Offset(0, 8) < C0.Offset(0, 1) Then
reponse = MsgBox("Stock insuffisant !", vbOKOnly)
en mettant une ' (apostrophe) en début de ligne.
Exact j'y avais meme pas pensé....
Je vais me pendre je reviens ^^
Merci
Par contre je viens de voir un soucis =>
Si le stock est a 0, on peu enlever 1 article.
On se retrouve avec un stock négatif, et à partir de là on ne peu plus en enlever...
Je ne comprend pas comment modifier cela.
Merci en tout cas