Mise à jour feuille Excel à partir d'un tableau

Résolu/Fermé

mdcherif Messages postés 10 Date d'inscription jeudi 25 octobre 2007 Statut Membre Dernière intervention 13 novembre 2014 - Modifié par mdcherif le 4/11/2014 à 19:38
PlacageGranby Messages postés 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 - 13 nov. 2014 à 15:03

Bonjour,
Salut à tous ,je sollicite votre aide sur ce fichier ci-joint pour comprendre un peux
les macros Excel ( Mise à jour de la quantité en stock)
si vous pouvez me renvoyer le fichier dument programmé (Module) à faire fonctionner le bouton que j'ai préparé sur feuille "Menu"

http://www.cjoint.com/14nv/DKetGKR0AsA.htm
et encore merci
Cordialement

A voir également:

Mise à jour feuille Excel à partir d'un tableau
Tableau croisé dynamique - Guide
Mise à jour pilote - Guide
Mise en forme conditionnelle excel - Guide
Liste déroulante excel - Guide
Mise a jour airpods - Guide

2 réponses

Réponse 1 / 2

PlacageGranby Messages postés 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 26
Modifié par pijaku le 5/11/2014 à 16:42

Donc, tu veux que la quantité d'un article dans la feuille stock soit diminué de la quantité du même objet présente dans la feuille menu ?

Donc la feuille menu est une sortie d'inventaire (vente, commande ou autre), et tu veux mettre à jour l'inventaire ?

On peut faire simple ou faire compliqué.

Si l'ordre des items du menu et de ta feuille stock reste toujours les mêmes, on peut faire du code très très basique et assigner directement un chiffre à un endroit moins un chiffre à un autre endroit.

Exemple :

Sub Bouton1_QuandClic()
sheets("stock").Range("E3").Value = sheets("stock").Range("E3").Value - sheets("Menu").Range("A9").Value
sheets("stock").Range("E4").Value = sheets("stock").Range("E4").Value - sheets("Menu").Range("A10").Value
sheets("stock").Range("E5").Value = sheets("stock").Range("E5").Value - sheets("Menu").Range("a11").Value
sheets("stock").Range("E6").Value = sheets("stock").Range("E6").Value - sheets("Menu").Range("A12").Value
sheets("stock").Range("E7").Value = sheets("stock").Range("E7").Value - sheets("Menu").Range("A13").Value
End Sub

C'est relativement fragile, si tu inverse l'ordre, ou si tu ajoutes une ligne, il faut que tu corrige la macro de ton bouton. Mais ca peut être fonctionnel.

Façon compliqué.
On peut faire des boucles sur ta feuille menu pour regarder chaque ligne, et ensuite à l'intérieur de la boucle, on boucle sur ton stock pour trouver la ligne correspondante et faire la soustraction.
Avantage certain, c'est dynamique, et on peut ajouter des lignes, l'ordre n'aura pas d'importance.
Inconvénient, c'est du code plus complexe et si tu veux changer quelque chose, tu devras te creuser un peu plus les méninges.

Sub Bouton1_QuandClic()

Dim compteur_menu As Integer
Dim compteur_stock As Integer
Dim derlig_menu As Integer
Dim derlig_stock As Integer

derlig_menu = Sheets("menu").Range("A" & Rows.Count).End(xlUp).Row
derlig_stock = Sheets("Stock").Range("A" & Rows.Count).End(xlUp).Row

For compteur_menu = 9 To derlig_menu
    For compteur_stock = 3 To derlig_stock
    If Sheets("Menu").Range("B" & compteur_menu).Value = Sheets("Stock").Range("B" & compteur_stock).Value Then
        Sheets("Stock").Range("E" & compteur_stock).Value = Sheets("Stock").Range("E" & compteur_stock).Value - Sheets("Menu").Range("A" & compteur_menu).Value
    End If
    Next compteur_stock
Next compteur_menu

End Sub

Cet exemple boucle pour chaque ligne de Menu l'ensemble des lignes de stock et déduit l'inventaire s'il y a un match.

Si quelqu'un click deux fois le bouton par erreur, la déduction est faite deux fois.
Il serait peut-être bon de vider la feuille menu en même temps.

Et pour finir, voici le code avec l'ajout pour mettre à zéro la feuille menu et un petit msgbox après l'exécution du bouton.

https://www.cjoint.com/c/DKfqwjBhaVL

Pour modifier le code et mettre le tout à ton goût, tu toujours demander plus d'info.

Cordialement.

Réponse 2 / 2

mdcherif Messages postés 10 Date d'inscription jeudi 25 octobre 2007 Statut Membre Dernière intervention 13 novembre 2014
Modifié par mdcherif le 13/11/2014 à 01:53

Bonjour;
et encore merci PlacageGranby ,Pijaku aussi ,vous êtes vraiment serviable
c'est exactement ce que je cherchais
je suis un vieux gestionnaire de stock à l'ancienne (au stylo) vous avez vu juste c'est un exemple d'inventaire et je vais étonné mes collègues grâce à vous et encore merci et a bientôt.
question résolu

PlacageGranby Messages postés 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 26
13 nov. 2014 à 15:03

Moi j'aide de mon mieux, mais Pijaku lui est un dieu excel,,, c'est mieux de ne pas nous comparer. :D

Discussions similaires

Comment trouver un numéro à partir du nom et prénom

Discussions similaires

Newsletters