Bonjour à tous,
J'ai conçu un fichier excel pour la gestion des stocks. Je souhaite que Excel m'avertisse bar bip à l'ouverture du fichier de la proche de la péremption des articles.
Voici ce que j'ai grignoté comme débrouillard.
Private Sub Workbook_Open()
'Pour les stocks
Dim peremption As Range
For Each peremption In ActiveSheet.Range("peremption")
Valeur = Cells(peremption.Row, 2)
If (peremption > 10 And peremption <= 100) Then
MsgBox "Il ne reste que moins de 100 jours pour la péremption de " & Valeur & " penser à l'utiliser", vbInformation, "Avertissement"
'Bip
Beep
Else
End If
Next
End Sub
J'ai un problème actuellement. Je ne sais pas comment faire pour le niveau de stock à la formule d’alerte. Je voudrai que l'alerte tienne compte du niveau de stock avant de signaler la péremption. Lorsque le niveau de stock est égale à zéro qu'il n'y ait pas d'alerte et qu'il y ait d'alerte seulement pour les articles en stock en tenant compte de la plus fable stock.
Merci de venir à mon aide. Je ne connais rien de la programmation je ne débrouille.
Merci
J'ai conçu un fichier excel pour la gestion des stocks. Je souhaite que Excel m'avertisse bar bip à l'ouverture du fichier de la proche de la péremption des articles.
Voici ce que j'ai grignoté comme débrouillard.
Private Sub Workbook_Open()
'Pour les stocks
Dim peremption As Range
For Each peremption In ActiveSheet.Range("peremption")
Valeur = Cells(peremption.Row, 2)
If (peremption > 10 And peremption <= 100) Then
MsgBox "Il ne reste que moins de 100 jours pour la péremption de " & Valeur & " penser à l'utiliser", vbInformation, "Avertissement"
'Bip
Beep
Else
End If
Next
End Sub
J'ai un problème actuellement. Je ne sais pas comment faire pour le niveau de stock à la formule d’alerte. Je voudrai que l'alerte tienne compte du niveau de stock avant de signaler la péremption. Lorsque le niveau de stock est égale à zéro qu'il n'y ait pas d'alerte et qu'il y ait d'alerte seulement pour les articles en stock en tenant compte de la plus fable stock.
Merci de venir à mon aide. Je ne connais rien de la programmation je ne débrouille.
Merci