Incrémentation et calcul automatique

Question

Je remets le nez dans excel, après quelques années de calme... Et j'ai beaucoup oublié... Je dois faire un fichier de gestion de stock, et j'ai récupéré un fichier exemple sur un autre forum qui comporte ceci : Private Sub Worksheet_Change(ByVal Target As Range) Dim Stock As Double, Ajout As Double On Error GoTo Fin If Target.Address = Range("Ajout").Address Then If IsNumeric(Range("Stock").Value) Then Stock = Range("Stock").Value If IsNumeric(Range("Ajout").Value) Then Ajout = Range("Ajout").Value Range("Stock").Value = Stock + Ajout ElseIf Target.Address = Range("Retrait").Address Then If IsNumeric(Range("Stock").Value) Then Stock = Range("Stock").Value If IsNumeric(Range("Retrait").Value) Then Ajout = Range("Retrait").Value Range("Stock").Value = Stock - Ajout Stock = 0 If IsNumeric(Range("Total_ventes").Value) Then Stock = Range("Total_ventes").Value Range("Total_ventes").Value = Stock + Ajout End If Exit Sub Fin: MsgBox "Calcul impossible" End Sub Ma question est : comment modifier cette macro (qui ne fonctionne que sur une ligne) pour que le calcul soit sur le même principe à chaque ligne, car le fichier de stock contient de nombreuses lignes (une référence par ligne) L'idéal serait de pouvoir le faire sur toutes les lignes de la feuille, afin de pouvoir créer des lignes de retrait qui pointeraient sur une référence et affecteraient le stock. Je vais essayer d'être plus claire : J'ai une feuille STOCK avec trois colonnes : REF00000 Désignation du produit 00 (unités en stock) et une feuille SAISIE Nom demandeur REF00000 Désignation du produit 00 (unités retirées du stock) L'idée c'est que quand je saisis une ligne dans la feuille SAISIE, la référence correspondante de la feuille STOCK soit modifiée en conséquence... Je vous remercie par avance pour toute l'aide que vous pourrez m'apporter !! Bien cordialement, Laure...

robjam · Answer

Une proposition à adapter à votre fichier. Corrigez la macro que vous proposez sans avoir le fichier c'est perdre sont temps. On ne sait rien sur la disposition des données dans la feuille donc... Essayer ce que je propose et adaptez le à votre fichier...