Detection d'une valeur Seuil

Bonjour,

J'ai un soucis, je voudrais avoir un message m'indiquant automatiquement que l'article XXX à atteint le seuil.

Merci

Bonjour

A tester dans ta configuration.

Macro à placer dans ThisWorkbook (ALT F11 pour ouvrir VBE).

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Worksheets("Données")
        If .[D5] <= .[E5] Then
            MsgBox "Le stock a atteint le niveau d'alerte"
        End If
    End With
End Sub

Merci jean-eric,

mais ce code n'a pas fonctionné.

Bonjour,

Les paramètres à prendre en compte pour surveiller les variations du stock sont le stock initial, le seuil et le stock actuel.

Le stock initial et le seuil sont modifiables dans la feuille Données.

Le stock actuel dépend des modifications réalisées dans la feuille Vente.

Une solution consiste à surveiller les changements dans les plages de données correspondantes dans ces feuilles en utilisant l’événement Worksheet.Change.

A+

Bonjour,

Le code fourni précédemment fonctionne.

[Macro à placer dans ThisWorkbook (ALT F11 pour ouvrir VBE).]

Une modification cependant:

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Byte
    With Worksheets("Données")
            For i = 2 To 5
                If .Cells(i, 4) <= .Cells(i, 5) Then
                    MsgBox .Cells(i, 1) & " :" & Chr(10) _
                        & "Le stock a atteint le niveau d'alerte."
                End If
            Next i
    End With
End Sub

Maintenant, pour vérifier son bon fonctionnement, il va falloir que tu revoies sérieusement des formules de calcul.

(résultats faux et problèmes de références circulaires).