Macro enregistre nombre négatif au Stock

Bonjour

je m'adresse à vous pour me donner une aide:

J'ai une macro qui enregistre les quantités sorties du Stock, si le stock est supérieur à la sortie, aucun problème

dans le cas où la sortie es supérieure à la quantité stockée,il y a un stock négatif inscrit sur la feuille Stock.

Ci joint ficher: La macro en question dans : Feuil4"Sortie" de l'éditeur VBA.

Private Sub CommandButton1_Click()
 'Sortie du stock()

'Définir les dernières lignes des feuilles "Sortie" et "Stock"
    derlig = Sheets("Sortie").Cells(Cells.Rows.Count, "A").End(xlUp).Row
    derligstock = Sheets("Stock").Cells(Cells.Rows.Count, "A").End(xlUp).Row

    ' Sortie du Stock
    'Parcourir les lignes des entrées
    For Each C In Sheets("Sortie").Range("A4:A" & derlig)
        'Parcourir les lignes des stocks
        For Each D In Sheets("Stock").Range("A4:A" & derligstock)
            'si article stock = article Sortie alors
            If C = D Then
                'valeur stock + valeur entr_e
                D.Offset(0, 5) = D.Offset(0, 5) + C.Offset(0, 1)

         End If
        Next
        Next

    'après le see ntrées je supprime mes lignes
    DLig = Sheets("Sortie").Range("B" & Rows.Count).End(xlUp).Row
    ' suppression des  lignes de la 4ième à la dernière
    For lig = DLig To 4 Step -1
        Rows(lig).Delete
    Next
    MsgBox "Sortie de stock terminée"
End Sub

Bonjour Abdu,

Ton fichier n'a pas été joint finalement, il a dû survenir un problème...

Pour ma part, je dirais que ce n'est pas dans la macro qu'il faut s'en soucier mais avant. Il faut une validation de données qui refuse toute sortie de stock supérieure à la quantité disponible.

Exemple de formule de validation personnalisée :

=$F1<=SOMME.SI($A$1:$A$4;$E1;$B$1:$B$4)

L'idéal serait d'avoir des tableaux structurés et éventuellement une macro change qui efface la quantité saisie en sortie de stock lorsqu'on efface/change un nom de produit en colonne A de la feuille Sortie.

Cdlt,

Bonjour 3GB

Merci pour la réponse