Créer un historique de modification du stock

[guiguisbc]

Bonjour à tous,

J'aimerai que quand je sort du stock un bloc ou quand je sort qu'une partie de celui ci qu'il vienne ce mettre dans mon onglet Consultation pour pouvoir avoir un historique des sortie de stock dans cet onglet

Voila ce que j'ai fait sa marche mais que pour une sortie totale pas pour une sortie partielle ex: j'ai en stock 8m3 j'en sort que 4m3 et remet 4m3 en stock.

Sub SortirStock()
With Sheets("Nouveau")
If .Range("E17") = "" Or .Range("E19") = "" Then
MsgBox "Veuillez remplir le CODE REF et le Volume désiré !", vbInformation + vbOKOnly, "Execution impossible!"
Exit Sub
End If
End With
 ActiveSheet.Unprotect
    Sheets("Consultation").Select
    ActiveSheet.Unprotect
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Selection.ClearFormats
    Range("A2").Select
    Sheets("Nouveau").Select
    Range("A13:N13").Select
    Selection.Copy
    Sheets("Consultation").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A2").Select
    Sheets("Nouveau").Select
Dim Cellule As Range
With Sheets("Stock")
Sheets("Stock").Select
    ActiveSheet.Unprotect
Set Cellule = .Columns(1).Find(Sheets("Nouveau").Range("E17"), lookat:=xlWhole)
If Not Cellule Is Nothing Then
Cellule.Offset(0, 10) = Cellule.Offset(0, 10) - Sheets("Nouveau").Range("E19")
If Cellule.Offset(0, 10) = 0 Then Cellule.EntireRow.Delete
End If
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
Sheets("Nouveau").Select
Application.Run "'Gestion Du Stock.xls'!EFFACER2"
Range("E17").Select
End Sub

 

[bbb38]

Re : Créer un historique de modification du stock

Bonjour guiguisbc, le forum,
Pour ma part, sans un fichier d’exemples (quelques lignes suffisent), difficile d’essayer de t’aider.
Cordialement,
Bernard