Discussion :

[buddy86]

Bonjour,

J'aurais besoin d'aide: je n'arrive pas à afficher la msgbox (voir fichier joint). Je dois certainement avoir une erreur de langage.
Je voudrais que la msgbox apparaisse dès que le stock après consommation est inférieur au stock mini.
Quelqu'un peut-il m'aider?

[SfJ5Rpw8]

Et c'est quoi le code utilisé ? ... (pas dans un fichier joint ni une image mais sur le forum avec les balises de [code] [/code] adaptée ..!)

[buddy86]

Voilà le code, en espérant que c'est ça que tu veux:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub stock_apres_conso()
Range("B7") = stock_apres_consommation(Range("B5"), Range("B3"))
End Sub
 
Function stock_apres_consommation(stock_initial As Single, quantite_consommee As Single)
stock_apres_consommation = stock_initial - quantite_consommee
End Function
 
Function observ_stock_apres_consommation(stock_apres_consommation As Single)
If Range("B7").Value < Range("B9").Value Then
MsgBox ("stock mini atteint, veuillez passer une commande"), vbOKOnly
End If
End Function