Macro pour mise à jour stock

Bonjour à tous,

je ne connais rien en macro, mais j'aimerai creer un fichier de gestion de stock simple avec une macro pour la mise à jour :

de b2 à b55 j'ai ma quantité en stock , une ligne par produit

de e2 à e55 j'ai la quantité que je commande

j'aimerai que quand je clic sur la macro cela ajoute la quantité commandée à la quantité en stock et que cela remette la colonne e2 à e55 à zéro pour la prochaine commande

merci de votre aide

Bonsoir,

Le code ressemblerait à ça:

Sub receptionCommande()
Dim ligFin As Integer
Dim Plage As Range

Set Plage = Selection

ligFin = Range("E" & Rows.Count).End(xlUp).Row
Range("E2", "E" & ligFin).Copy
Range("B2", "B" & ligFin).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False

Range("E2", "E" & ligFin) = 0
Plage.Select
End Sub

Etapes du code:

  1. Enregistrement de la sélection de cellules actuelle car elle se fera écraser par la suite du code (copier et coller)
  2. Obtenir le numéro de la ligne de fin, l'enregistrer dans la variable ligFin
  3. Copier les quantités commandées en colonne E en utilisant ligFin pour copier l'intégralité des lignes
  4. Faire un collage spécial sur les stocks en colonne B, le collage spécial colle uniquement les valeurs, et effectue une addition (addition des valeurs copiées aux valeurs où on colle).
  5. Désactiver le mode copier coller
  6. Réinitialisation des quantités commandées à 0
  7. Réinitialiser la sélection sur celle de départ

Bonjour logun et salut @Ausecour
Voici une proposition avec un Tableau Structuré.
Cdt
Papy Henri

8logun-test1.xlsm (17.05 Ko)
Rechercher des sujets similaires à "macro mise jour stock"