Private Sub CommandButtonOK_Click()
L = 1 + Range("C65500").End(xlUp).Row
Cells(L, "B") = Date
Cells(L, "C") = UserForm1.Cbreception
Cells(L, "D") = UserForm1.TextBoxqte
Cells(L, "E") = UserForm1.TextBoxlot
Cells(L, "F") = UserForm1.TextBoxperemption
End Sub
Bonjour merci pour votre réponse ca marche bien mais y'a la mise à jour du stock en feuille produit que vous avez oublié. la somme des lots d'un produit représente le stock de ce produit en colonne E de la feuille produits. le stock des produits en feuille produits doit s'actualiser en fonction de l'ajout des produits via le usrform.Bonjour Vanin,
Un essai en PJ avec :
VB:Private Sub CommandButtonOK_Click() L = 1 + Range("C65500").End(xlUp).Row Cells(L, "B") = Date Cells(L, "C") = UserForm1.Cbreception Cells(L, "D") = UserForm1.TextBoxqte Cells(L, "E") = UserForm1.TextBoxlot Cells(L, "F") = UserForm1.TextBoxperemption End Sub