Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Row = 12 Or Target.Row = 26 Then
If Target.Address = "$E$12" Or Target.Address = "$K$12" Or Target.Address = "$Q$12" Then
'entrées ligne 12
Target.Offset(, 2) = Target.Offset(, 2) + Target.Value 'stock
Range("E6") = Range("E6") + Target.Value 'total entrée
Range("G6") = Range("G6") + Target.Value 'total sortie
Target.Value = ""
End If
'sortie
If Target.Address = "$F$12" Or Target.Address = "$L$12" Or Target.Address = "$R$12" Then
If Target.Offset(, 1) >= Target.Value Then
Target.Offset(, 1) = Target.Offset(, 1) - Target.Value 'sortie
Target.Offset(, 3) = Target.Offset(, 3) + Target.Value 'vendu
Range("F6") = Range("F6") - Target.Value
Range("G6") = Range("G6") - Target.Value
Range("I6") = Abs(Range("F6")) 'total vendu
Target.Value = ""
Else
MsgBox "stock limité"
End If
End If
If Target.Address = "$E$26" Or Target.Address = "$K$26" Or Target.Address = "$Q$26" Then
'entrées ligne 26
Target.Offset(, 2) = Target.Offset(, 2) + Target.Value 'total stock
Range("E6") = Range("E6") + Target.Value 'total entrée
Range("G6") = Range("G6") + Target.Value 'total sortie
Target.Value = ""
End If
'sortie
If Target.Address = "$F$26" Or Target.Address = "$L$26" Or Target.Address = "$R$26" Then
If Target.Offset(, 1) >= Target.Value Then
Target.Offset(, 1) = Target.Offset(, 1) - Target.Value
Target.Offset(, 3) = Target.Offset(, 3) + Target.Value 'vendu
Range("F6") = Range("F6") - Target.Value
Range("G6") = Range("G6") - Target.Value
Range("I6") = Abs(Range("F6")) 'total vendu
Target.Value = ""
Else
MsgBox "stock limité"
End If
End If
End If
End If
End Sub