Suivi de modification d'un fichier

[alias_2003]

Bonjour à tous,
Nouvelle requête... J'ai récupéré ce code écrit par Danreb dans l'un des sujets du forum. Il marche parfaitement, aucun problème ! Cependant, j'aimerais si possible récupérer les nom et prénom entrés par l'utilisateur et les sauvegarder dans le tableau historique (Cf fichier de Danreb joint).
Merci à nouveau de votre aide,
Bonne journée !

Option Explicit

Private Sub BtOk_Click()
Dim L As Long, Qté As Long, Stock As Long, Z As String, Lgn As Long
L = CbxCode.ListIndex + 1
If L = 0 Then
   MsgBox "Veuillez entrer un code correct", vbCritical, "Mouvement"
ElseIf Not IsNumeric(TbxQté.Value) Then
   MsgBox "Veuillez saisir une quantité numérique", vbCritical, "Mouvement"
Else
   Qté = TbxQté.Value: If Left$(Caption, 6) = "Sortie" Then Qté = -Qté
   Stock = FLstPcD.[StockDispo].Rows(L).Value
   If Stock + Qté < 0 Then Z = "             Stock insuffisant !" & vbLf: Qté = 0 Else Z = ""
   If Qté = 0 Then
      MsgBox Z & " Veuillez saisir une quantité valide ", vbCritical, Caption
      Else
      UfMvt.Hide
      If InputBox(Choose((Sgn(Qté) + 3) \ 2, "SORTIE DE STOCK DE ", "ENTREE EN STOCK DE") & vbCrLf & vbCrLf & "Référence : " & CbxCode.Value & vbCrLf & vbCrLf & "Description : " & FLstPcD.[DescriptionPièces].Rows(L).Value & vbCrLf & vbCrLf & "Quantité =  " & Abs(Qté), "Confirmation mouvement", "Pour confirmer, entrer votre prénom et cliquez sur OK", 5900, 4000) = vbOK Then
     
      
      Stock = Stock + Qté
      FLstPcD.[StockDispo].Rows(L).Value = Stock
      With FArch.[Tablo]: Lgn = .Rows.Count: .Rows(Lgn).Copy: .Rows(Lgn).Insert
         Lgn = .Rows(Lgn + 1).Row: End With
      FArch.[Heure].Rows(Lgn).Value = Now
      FArch.[Code.].Rows(Lgn).Value = CbxCode.Value
      FArch.[Qté].Rows(Lgn).Value = Qté
      FArch.[Stock].Rows(Lgn).Value = Stock
      FLstPcD.[DatDrnMvt].Rows(L).Value = Now
      FLstPcD.[QtéDrnMvt].Rows(L).Value = Qté
'    CreateObject("Wscript.shell").Popup "Merci"&"prénom saisi !", 2, "Confirmation", 64
      End If
      End If
   End If

End Sub


Private Sub UserForm_Click()

End Sub

 

[alias_2003]

Re : Suivi de modification d'un fichier

Re-,
Petite question : comment procéder pour que lorsque l'on clique sur "Entrée", on ait dans la liste déroulant le code de l'article mais aussi sa description (colonne A et B de la feuille "STOCKS") ??
Merci !

 

[alias_2003]

Re : Suivi de modification d'un fichier

Danreb a gentiment résolu mon problème ici pour ceux qui auraient le même problème https://www.excel-downloads.com/threads/gestion-de-stok-tres-simplifiee.162146/