Private Sub BtMàjStock_Click()
Dim SgnMvt As Long, Heure As Date, Stock As Long, CodePièce As String, Qté As Long, Lc As Long, Lm As Long, La As Long
Dim QtéTot As Long
SgnMvt = 1: QtéTot = 0
Heure = Now
For Lm = 1 To Me.[CodeEntrer].Rows.Count
CodePièce = Me.[CodeEntrer].Rows(Lm).Value
On Error Resume Next
If CodePièce = "" Then GoTo Suivant
Lc = WorksheetFunction.Match(CodePièce, FLstPcD.[CodesPièces], 0)
If Err Then
QtéTot = QtéTot
MsgBox "Pièce """ & CodePièce & """ non répertoriée en stock.", vbExclamation, "Approvisionnements"
GoTo Suivant: End If
On Error GoTo 0
QtéTot = QtéTot + 1
If MsgBox(QtéTot & " références ont été ajoutées aux stock." & vbLf & "Cette liste va maintenant être supprimée.", _
vbInformation + vbOKCancel, "Approvisionnements") = vbCancel Then Exit Sub
Stock = FLstPcD.[StockDispo].Rows(Lc).Value
Qté = Me.[QtéEntrer].Rows(Lm).Value * SgnMvt
Stock = Stock + Qté
FLstPcD.[StockDispo].Rows(Lc).Value = Stock
With FArch.[Tablo]: La = .Rows.Count: .Rows(La).Copy: .Rows(La).Insert
La = .Rows(La + 1).Row: End With
FArch.[Heure].Rows(La).Value = Heure
FArch.[Code.].Rows(La).Value = CodePièce
FArch.[Qté].Rows(La).Value = Qté
FArch.[Stock].Rows(La).Value = Stock
FLstPcD.[DatDrnMvt].Rows(Lc).Value = Heure
FLstPcD.[QtéDrnMvt].Rows(Lc).Value = Qté
' QtéTot = QtéTot + 1
Suivant: Next Lm
'
'If MsgBox(QtéTot & " pièces ont été ajoutées aux stock." & vbLf & "Cette liste va maintenant être supprimée.", _
' vbInformation + vbOKCancel, "Approvisionnements") = vbCancel Then Exit Sub
Me.[CodeEntrer].ClearContents
Me.[QtéEntrer].ClearContents
With Me.[LignesEntrer]
If .Rows.Count > 2 Then .Rows(2).Resize(.Rows.Count - 2).Delete
End With
End Sub