Macro FIND + Copier coller

Bonjour à tous, je crée depuis quelques semaines maintenant un dossier qui se rapproche d'une gestion de stock.

Je suis un petit peu bloquée au niveau d'un système de mise à jour des stocks (oui je sais avec Access ça aurait été mieux mais mes patrons ne savent pas l'utiliser).

Dans le dossier joint, une feuille stock et une feuille update.

La feuille "update" est composée d'une liste élaborée et d'une macro qui va avec celle ci.

Il y a aussi une macro qui fait la fonction "FIND" pour retrouver le contenu de la première cellule de ma feuille "update" dans la feuille "stock". Je souhaiterai copier le "nouveau stock" de la feuille "update" dans la colonne nouveau stock de la feuille "stock" en sachant que suivant la liste choisie, la première et la dernière cellule varient.

Je pense que c'est un peu plus clair dans le fichier joint

Merci d'avance pour le temps que vous y consacrerez !

Bonjour,

En gros ce que vous voulez faire c'est copier le nouveau stock d'un article qui est en colonne G de la feuille UPDATE vers la colonne F de la feuille STOCK

Si oui, essayez avec ce code

Sub cherche()
Dim i As Integer, lg As Integer
With Sheets("Update")
    For i = 9 To .Range("C" & .Rows.Count).End(xlUp).Row
        lg = Sheets("Stock").Range("B:B").Find(.Range("C" & i).Value, LookIn:=xlValues, LookAt:=xlWhole).Row
        Sheets("Stock").Range("F" & lg) = .Range("G" & i)
        Next i
End With
End Sub

Cordialement

Parfait nickel, top ! Merci énormément !