guiguisbc
XLDnaute Junior
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.
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.
Code:
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