XL 2010 message box si quantité atteinte

MAN · 28 Août 2021

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 · 28 Août 2021

Bonjour Man,
Un essai en PJ avec :

VB:

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 · 30 Août 2021

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 · 30 Août 2021

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.

XL 2010 message box si quantité atteinte

MAN

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

MAN

XLDnaute Occasionnel

MAN

XLDnaute Occasionnel

Discussions similaires