XL 2010 message box si quantité atteinte

[MAN]

Bonjour le forum. bonjour a tous.
j'ai un fichier. que joint. j'ai un stock de poulet de 500. j'aimerai que si je vends ces 500 poulets, que je ne puisse plus rien vendre. en VBA svp.
merci d'avance

 

[sylvanu]

Bonjour Man,
Un essai en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B3:B33")) Is Nothing Then
        If Application.Sum(Range("B3:B33")) >= Range("B1") Then
            MsgBox Application.Sum(Range("B3:B33")) & " poulets ont été vendus" & Chr(10) & "Le stock est vide"
        End If
    End If
End Sub

 

[MAN]

merci sylvanu. merci le forum. ceci résoud en partie la difficulté.
je voudrai que si la valeur est dépassée, que les données ne s'insèrent plus dans le tableau.
merci d'avance

 

[MAN]

s'il vous plait. la feuille en question est une feuille récapitulative. le message doit s'afficher si les valeurs sont insérées dans n'importe quelle feuille du classeur.
merci d'avance.