XL 2019 Calcul de conso pour une pizzeria

[jcpamart]

Salut, depuis quelques temps, je fais des calculs de conso de mix fromage sur mes pizzas (un ratio en gr / pizza) sur papier. Je souhaite informatiser tout ça.
L'idée serait que sur un classeur, feuil 1 soit la page de référence, et que les données soient en feuil 2.
Comme dans la pizzeria l'écran est tactile, il faut une mise en page assez grosse.
-------------------------------------------------------------
En feuil1, juste à rentrer les données suivantes :
Stock de boites en fin de service (boites 29 & 33 cm)
Ajout de boites (29 ou 33 cm) dans la journée (en général des paquets de 100 u)
Nombre de sac de fromages utilisés (2kg)
Poids du bac de fromage en fin de service
Et un bouton "envoyer"
------------------------------------------------------------
En feuil 2, à chaque bouton " envoyer " de la feuil 1, s'ajoute une ligne avec la date du jour de l'envoi.
Cette ligne serait le calcul de la conso de la journée, qui reprendrait le stock de la veille au soir (histoire de ne pas retaper à chaque fois les mêmes éléments)

DATE / Ratio conso fromage / Stock Veille / Stock fin de service 29 &33 cm/ =Total boites consommées // Stock veille fromage / Sac fromages / Poids fromage fin de service /= Conso fromage jour /
-----------------------------------------------------------
Du coup, chaque ligne reprendrait les éléments de la veille (stock fin de service et poids fromage en fin de service) pour les réintégrer dans la ligne du lendemain.
Le bouton " envoyer " remplis les cellules manquantes.
La cellule ratio conso fromage serait la division des sommes des boites / la conso fromage.


Je ne maitrise pas le VB, mais d'après vous, cela est il possible ?

Merci de votre aide

JC

 

[sylvanu]

Bonjour Jcpamart,
Un essai en PJ avec cette macro :

Sub Mémoire()
    Application.ScreenUpdating = False
    F = ActiveSheet.Name
    With Sheets("HistoriqueConso")
        .Activate
        ColLibre = 2 + Application.CountIf(.Range("3:3"), ">0")
        .Cells(2, ColLibre) = Date
        [Données].Copy
        .Cells(3, ColLibre).Select
        ActiveSheet.Paste
    End With
    Sheets(F).Activate
End Sub

J'ai supposé qu'en début de service, il pourrait rester du fromage de la veille dans le bac, donc j'ai rajouté la ligne. Sinon mettre simplement 0.

 

[soan]

Bonjour sylvanu, le fil,

tu as écrit : « il pourrait rester du fromage de la veille dans le bac »

merci de ne pas le jeter, et de le laisser pour ma souris.

soan

 

[jcpamart]

Salut SYLVANU,
Franchement génial !!!! Mais tu vas me trouver un peu casse bonbon sur ce coup là :
Est-il possible de mettre l'historique de conso en ligne et non en colonne ?
Etant donné qu'on va le faire tous les jours, ce sera plus simple de voir ces chiffres en lignes.....
Et alors, mais là je sais que j'abuse :
Faire un bouton : Reprendre les chiffres d'hier, de façon à :

• Faire passer B5 en B3
• Faire passer B9 en B7
• Mettre B4 et B8 à zéro

En tout cas, c'est déjà super ce que tu as fait.
Merci beaucoup

Pour SOAN, désolé, pas de souris chez nous... Juste une à côté du clavier.... LOL

 

[sylvanu]

Bonsoir Jcpamart,
Voilà !

 

[jcpamart]

Super !!!!
Je pars la dessus, je test en live.
Et je te tiens au courant, mais pour le coup, c'est génial !!!!