XL 2013 Mettre a jour une feuille, en fonction d'une autre

[tit32600]

Bonjour,
je souhaiterais une aide de votre part, sur un nouveau sujet.
Je rempli une feuille "Inventaire", à l'aide d'un formulaire.
Cette feuille contient le,
Reference (colonne A)
designation (colonne B)
Serie (colonne C)
et le stock trouvé. (colonne E)
A la fin de mon inventaire, je souhaiterais, à l'aide de la vba, mettre a jour ma cellule "Qte en stock" (colonne D) dans ma feuille principale "stock" en fonction du même code article.
j'espere ne pas avoir été trop brouillon.
Merci encore de votre aide

 

[vgendron]

Hello
ci dessous une proposition, dans laquelle je colorie en vert les stock qui ont été mis à jour avec une nouvelle valeur

Sub UpdateStock()
With Sheets("Inventaire")
    fin = .Range("A" & .Rows.Count).End(xlUp).Row
    If fin = 3 Then Exit Sub
    tabinventaire = .Range("A4:FA" & fin).Value
End With

With Sheets("Stock")
    For i = LBound(tabinventaire, 1) To UBound(tabinventaire, 1)
        Set trouvé = .Columns("A:A").Find(tabinventaire(i, 1), lookat:=xlWhole)
        If Not trouvé Is Nothing Then
            StockInit = .Range("D" & trouvé.Row)
            .Range("D" & trouvé.Row) = tabinventaire(i, 5)
            .Range("D" & trouvé.Row).Interior.ColorIndex = IIf(StockInit = .Range("D" & trouvé.Row), xlNone, 4)
        End If
    Next i
End With
End Sub

 

[fanfan38]

Bonjour
Salut Vgendron
Ci joint ma solution
Mais pourquoi ne pas mettre directement la feuille stock à jour lors de la validation du formulaire

A+ François

 

[tit32600]

Salut Vgendron,

Merci encore de ton aide, cela me conviens tout à fait.

tit32600

 

[tit32600]

Salut Fanfan38,

Cela me permet, le cas échéant, si on arrête l'inventaire pour une raison ou une autre, de savoir quel article à été deja vue, et d'imprimer si l'on souhaites, un état d'inventaire effectué à une date precise.

Merci encore de ton aide.
Ta solution me conviens tres bien aussi

Tit32600