Historique d'entrée/sortie d'un stock

Bonjour,

C'est un sujet qui à déjà surement du être traité mais ma demande est assez spécifique.

alors voila, sur la feuille 1 j'ai une ligne qui sert à entrer une entrée ou sortie de produits en stock, entrée ou sortie qui s'affiche en feuille 2 représentant tous les produits après un click sur un bouton de commande "valider" en feuille 1.

En feuille 3, j'aurais un historique de toutes les entrées et sortie des produits à chaque ligne.

Donc mon souhait serait d'avoir un code VBA pour ce fameux bouton de commande qui après click modifie le stock en feuille 2 et crée une ligne historique en feuille 3.

Pour la première partie je pense que je trouverais par moi même mais pour l'historique, j'en suis piètrement incapable.

merci d'avance.

Bonsoir

Pour commencer

bonsoir

Sub valider()

Dim historique As Worksheet
Dim stock As Worksheet
Dim entree As Worksheet
Dim r As Range

Set historique = Worksheets("Feuille3")
Set stock = Worksheets("Feuille2")
Set entree = Worksheets("Feuille1")

dlhistorique = historique.Range("A" & historique.Rows.Count).End(xlUp).Row + 1

Set r = stock.Range("C:C").Find(entree.Range("C7"))

If r Is Nothing Then 'article non trouvé dans le stock, on rajoute une ligne
 lstock = stock.Range("C" & historique.Rows.Count).End(xlUp).Row + 1
 stock.Range("C" & lstock) = entree.Range("C7")
 stock.Range("D" & lstock) = InputBox("reference non trouvée, veuillez introduire la description")
 stock.Range("F" & lstock) = 0: 'valeur par défaut du stock tampon
Else
 lstock = r.Row
End If
'copier vers l'historique
entree.Range("C7:I7").Copy
historique.Range("A" & dlhistorique & ":G" & dlhistorique).PasteSpecial Paste:=xlPasteValues
'ajuster le stock
q = entree.Range("G7") - entree.Range("H7")
stock.Range("E" & lstock) = stock.Range("E" & lstock) + q

Set historique = Nothing
Set stock = Nothing
Set entree = Nothing
End Sub

Oh my god! Merci infiniment. Tout fonctionne parfaitement et les petites box qui apparaissent pour dire qu'il manque des saisies. C'est divin. Jamais j'en aurais été capable. Merci à vous.

En espérant que ça serve à d'autres.