Re : Remplir mercuriales fournisseurs à partir d'un formulaire
Bonjour aurelien.r,
Tout d'abord un grand merci pour ta réponse rapide et le temps que tu prends pour m'aider. Petite parenthèse, je te rassure tous mes burgers ont de la salade, et même des tomates et de la sauce
Pour en revenir à ton travail, qui est d'une grande aide, j'ai un petit soucis d'exécution sur le codage suivant:
Sub valider_burger()
Dim tab_bur(2) 'j'ai fait mon exemple sur 3 burgers
tab_bur(0) = Cells(8, 5)
tab_bur(1) = Cells(10, 5)
tab_bur(2) = Cells(12, 5)
'tu peux aussi le coder avec une boucle du style for i = 0 to 2 tab_bur(i)= cells(8+2*i,5) next
Worksheets("Fournisseur 1").Activate
For i = 0 To 2
Cells(6, 5) = tab_fou(4, i + 3) * tab_bur(i) + Cells(6, 5) 'Tu remarqueras que si tu avais deja des steacks de perdu, ils seront ajoutés. C'est un choix que j'ai fait, mais après ça dépend de ton utilisation.
Cells(7, 5) = tab_fou(5, i + 3) * tab_bur(i) + Cells(7, 5)
Next
Worksheets("Fournisseur 2").Activate
For i = 0 To 2
Cells(6, 5) = tab_fou(6, i + 3) * tab_bur(i) + Cells(6, 5)
Next
End Sub
Je pense que tu as bien saisi ce que je souhaite faire, à savoir lorsque je renseigne par exemple 2 "burger 1" perdus, en validant, chaque aliment présent dans le "burger 1" vient se déduire dans la mercuriale du fournisseur concerné.
Par exemple:
- "burger 1" (composé de 2 steaks, 1 feuille de salade, 1 rondelle de tomate, 2 tranches de cheddar): quantité perdue = 2
-> 2 steaks chez "fournisseur 1", 2 tanches de cheddar chez "fournisseur 2" etc....
J'aimerais renseigner les pertes une fois par semaine et que chaque perte vienne s'additionner à celles de la semaine précédente. Cela me permettra de calculer un stock théorique et ainsi voir sur quel produit j'ai des écarts par rapport à mes inventaire (par ailleurs, je reprendrais le même codage pour réaliser mes inventaires et mes achats). Pour cela, j'aimerais créer un formulaire (voir mon exemple du fichier joint) afin d'éviter les erreurs en appuyant 2 fois sur "valider" par exemple.
Grosso modo, sur mon travail, ma base de données est prête, les tableaux sont prêts. Il ne me manque que les codages que je ne maitrise pas vraiment. Aujourd'hui, je fonctionne avec des codages simples qui me permettent de passer d'une feuille à l'autre en masquant la première et faisant apparaitre la seconde. J'aimerais aller plus loin et rendre mon tableau de gestion plus ludique et avec moins de possibilité d'erreur.
Merci, une fois de plus pour ton aide.