Private Sub Worksheet_Change(ByVal target As Range)
Dim b As Range, bb As Boolean
Dim c As Range, bc As Boolean
Dim d As Range, bd As Boolean
If target.Address = "$K$29" Then
Set b = Columns(3).Find(target.Value, LookIn:=xlValues, lookat:=xlWhole)
With Sheets("stock")
.Unprotect ""
Set c = .Columns(2).Find(target.Value, LookIn:=xlValues, lookat:=xlWhole)
Set d = .Columns(3).Find(target.Value, LookIn:=xlValues, lookat:=xlWhole)
End With
bb = Not b Is Nothing 'Vrai si trouvé
bc = Not c Is Nothing
bd = Not d Is Nothing
If bb Then 'Existe dans le bon de livraison (Existe forcément dans le stock)
b.Offset(, 2) = b.Offset(, 2) + 1
target.MergeArea.ClearContents
End If
If Not bb And (bc Or bd) Then 'N'existe pas dans le bon de livraison, mais existe dans le stock
Set c = Cells(Rows.Count, 3).End(xlUp).Offset(1) 'Première ligne vide
If c.Row > 52 Then
MsgBox ("Vous avez saisi le nombre d'articles maximum!")
Exit Sub
End If
c.Value = target.Value
target.MergeArea.ClearContents
End If
If Not bb And Not bc And Not bd Then
MsgBox ("La rŽfŽrence que vous souhaitez ajouter ne fait pas partie du stock. Veuillez d'abord la creer dans le stock. Merci ")
End If
target.Select 'Pour saisir la référence suivante
End If
End Sub