Mis à jour stock

Bonjour je suis débutante en vba et j'ai de problèmes pour mettre à jour mon gestion de stock . je vous envoies pour que vous puissiez voir ce ki bloque

Bonjour, binetteg

Peux-tu nous envoyer ton fichier afin que l'on puisse t'aider ? même anonyme

Amicalement

Pierrot

avec toutes mes excuses,

je viens de voir le fichier joint

Pierrot

Bonjour,

Je ne vois pas ce que je peux faire sur votre programme ?

il fonctionne bien, que voulez-vous modifier ?

Pierrot,

Merci mais j'ai un autre soucis une erreur 1004 qui dit que "impossible de lire la propriété SumIf dans WorksheetFunction". Merci d'avance

Voici le code de la fonction:

Private Sub stockactuel_Change()

Dim stock, valeur As Double

Dim designation As Range, lig&, i&

Set designation = Feuil2.Range("B2:A" & Feuil2.Range("B" & Rows.Count).End(xlUp).Row).Find(design, , , xlWhole)

If Not designation Is Nothing Then

lig = designation.Row

i = 2

While Feuil2.Cells(i, 2) <> ""

If Feuil2.Cells(i, 2) = design Then

valeur = Sheets("ENTREES").Range("G" & i).Value

stock = WorksheetFunction.SumIf(designation, Feuil2.Cells(lig, 2), valeur)

End If

i = i + 1

Wend

stockactuel.Value = stock * 1

Else

MsgBox "Aucune correspondance trouvée", , "Pas de Corespondance": Exit Sub

End If