Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Gérer le contenu d'un frigo

Picon

XLDnaute Nouveau
Bonjour tout le monde.

Voilà, j'essaye de gérer le contenu d'un frigo par macro.
Pour cela, lorsque je retire un produit, j'inscris le nom du produit à retirer ainsi que la quantité à déduire de la quantité totale.
Sur mon fichier excel, il y a deux tableaux :
-Un avec les produits à déduire
-et l'autre avec le contenu actuelle du frigo
Il faudrait par macro faire une soustraction au niveau des cases, le problème, c'est que j'ai pas vraiment d'idée.
Si quelqu'un pouvait m'aider.
Merci d'avance.

(en pièce jointe : un exemple.)
 

Pièces jointes

  • Sortie.xlsm
    12.9 KB · Affichages: 126

Yaloo

XLDnaute Barbatruc
Re : Gérer le contenu d'un frigo

Bonsoir Picon et bienvenu sur XLD,

Pour quelle raison faire ça par macro ? Tu gères beaucoup de chose ?

Si tu fais des sorties, il faudra prévoir des rentrées ?

A+

Martial
 

Picon

XLDnaute Nouveau
Re : Gérer le contenu d'un frigo

Bonjour Martial,

Je le fais par macro dans le but "d'automatisé" le tout.
Et pour les rentrées, je sais le faire, c'est juste au niveau des sorties, je ne sais pas le programmer par macro.

Voilà.
 

Yaloo

XLDnaute Barbatruc
Re : Gérer le contenu d'un frigo

Re,

Avec tes 2 feuilles, c'est difficile de voir comment tu t'y prend et où tu veux arriver.

Tu veux le faire comment ? Avec un bouton ? Avec une procédure événementielle ? Si oui, quel est le déclencheur ?

Si tu as déjà quelque chose pour rentrer les produits, tu peux peut-être nous en faire profiter pour que l'on s'en inspire.

A+
 

Picon

XLDnaute Nouveau
Re : Gérer le contenu d'un frigo

Re,

En gros, je voudrais soustraire les quantités :
par exemple, il y 2 saucissons dans le frigo(cf feuil2) et 1 à sortir(cf feuil1), il faudrait donc soustraire les deux cases.
Et oui, le plus simple serait avec un bouton.
Et pour les entrées, il s'agit juste d'un copier coller par macro, je peux te l'envoyer si nécessaire.

En tout cas, merci de ton aide
 

Yaloo

XLDnaute Barbatruc
Re : Gérer le contenu d'un frigo

Re,

Peut-on changer la mise en page de ta première feuille ?

Si non, voir Sortie V1, mais attention il ne faut pas d'erreur de saisie de nom. Par exemple, en feuille 1 tu avais Yaourt avec un espace derrière, tu avais Boite d'haricots alors que tu n'en as pas dans la feuille 2.

Si oui, voir Sortie V2

Après il faut voir s'il faut supprimer les produits que l'on vient de retirer, de la liste.

A+

Martial
 

Pièces jointes

  • Sortie V1.xlsm
    24.4 KB · Affichages: 68
  • Sortie V2.xlsm
    23 KB · Affichages: 67

Yaloo

XLDnaute Barbatruc
Re : Gérer le contenu d'un frigo

Re,

Une version améliorée de la V2, avec suppression des données après la soustraction.

A+
 

Pièces jointes

  • Sortie V2.1.xlsm
    24.8 KB · Affichages: 94

bbb38

XLDnaute Accro
Re : Gérer le contenu d'un frigo

Bonjour Picon, Martial, le forum,
Une autre méthode (sans suppression des articles à zéro), à tester.
Cordialement,
Bernard
 

Pièces jointes

  • Picon_sortie.xlsm
    34 KB · Affichages: 112

Picon

XLDnaute Nouveau
Re : Gérer le contenu d'un frigo

Re,

Je serais plutôt pour garder la 1, car je veux vraiment garder cette mise en page.
J'ai essayé la 2, c'est impec aussi.

bbb38>Vraiment très impressionnant, merci à toi ( je pensais pas qu'on pouvait programmer autant avec des macros ) mais je vais garder ce que Martial a fait, c'est plus simple étant donné que je suis un débutant en vba.

Par contre, vous avez une idée pour supprimer une ligne du tableau "contenu" si la valeur est égale à 0?

Encore merci à tous les deux.

A+
 

Yaloo

XLDnaute Barbatruc
Re : Gérer le contenu d'un frigo

Bonjour Picon, Bernard,

Avec ceci à mettre dans la feuille 2

VB:
Private Sub Worksheet_Activate()
Dim i&
For i = [A1].End(xlDown).Row To 2 Step -1
  If Cells(i, 3) = 0 Then Rows(i).EntireRow.Delete
Next
End Sub

A+

Martial
 

Discussions similaires

Réponses
26
Affichages
923
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…