Bonjour
J’ai suivi une mini formation sur you tube afin de réaliser le sujet en titre
J’ai tout copie le code via proposé et ca ne fonctionne pas
J’inclus le fichier excell et voici le code utilisé
Sub Workbook_Open()
Dim alertestock As Range
For Each alertestock In ActiveSheet.Range(« Alerte_stock »)
Valeur = Cells(alertestock.Row, 1)
If alertestock = « 0 » Then
MsgBox « La référence " & Valeur & " doit être commandée. », vbCritical, « Quantité en stock insuffisante »
Else
End If
If alertestock = « 1 » Then
MsgBox « La référence " & Valeur & " devra bientôt être commandée. », vbExclamation, « Stock presque insuffisant »
Else
End If
End sub
Merci de m’aider !!!
test.xlsm (14,8 Ko)