XL 2013 VBA date de péremption et niveau de stock

[Koku]

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

 

[Backhandshot]

Bonjour à tous!
Koku, voici ton fichier en retour à toi de le modifier
Bonne journée!

 

[Koku]

Bonjour à tous!
Koku, voici ton fichier en retour à toi de le modifier
Bonne journée!

Bonjour cher Backhandshot,

Merci pour le fichier.

En faite ce n'est pas ce que je cherche exactement. J'ai surement mal exprimé.
Je voudrai que la boite de dialogue de date de péremption soit en fonction du niveau de stock. Lorsqu'un produit arrive à expiration et que le niveau du stock est zéro le message d'alerte ne devrait pas apparaitre.
Les deux indicateurs ne sont pas dans la même colonne.

Merci de m'aider

Bien à toi cher Black