Gros problème avec des quantitées

[vincent]

Bonjour tout le monde

J'ai joint mon classeur excel, et mon problème c'est que je n'arrive pas à enlever des quantitées commandés de chaque produit à leurs quantitées en stock.
Si vous pouvez m'apportez de l'aide, ca serait vraiment cool!

voila, merci d'avance,
ciao!!!

 

[Excel'ent]

Pb pièce jointe

Impossible de lire la pièce jointe,
fichier endommagé

 

[Hervé]

Bonjour


Pas de souci pour ouvrir ta pièce jointe.

Essaye ceci :

Public Sub quantites()
Dim c As Range
Dim i As Integer
For Each c In Sheets("feuil2").Range("c14:c18")
For i = 3 To 7
If c.Value = Sheets("feuil1").Range("b" & i).Value Then
Sheets("feuil1").Range("c" & i).Value = Sheets("feuil1").Range("c" & i).Value - c.Offset(0, 2).Value
End If
Next i
Next c

End Sub

A adapter bien sur

Salut
Hervé

 

[vincent]

merci bcp je vais essayer ce soir si j'arrive à l'adapter à mon fichier et je vous tiens au courant
bonne journée!
ciaooo