Comment calculer ?

B

Banzai64

XLDnaute Accro

• 31 Octobre 2007

• #16

Re : Comment calculer ?

Bonjour

Oui je vois ce que tu veux obtenir
Mais je ne sais pas comment le traduire en macro ou formule
Pour moi cela rique d'être long

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 31 Octobre 2007

• #17

Re : Comment calculer ?

Re Excel_lent, le forum,
Je joins ton fichier en retour, il doit y avoir un prob car quand je clique sur le bouton test rien ne se passe.

J'ai mis seulement ces deux exemples de sorties de produits pour simplifier.
Comme on peut le voir :
01-10 Achat de 7 Kg d'aubergine Sortie 2 Kg à 4,58 €
03-10 Achat de 4 Kg d'aubergine Sortie 3 Kg à 4,58 €
05-10 Achat de 10 Kg d'aubergine Sortie 8 Kg soit :
2 Kg à 4,58 €
4 Kg à 5,10 €
2 Kg à 6,00 €
Le bouquet garni sort au prix de 3,00 €

La valeur du prix de sortie à une date donnée est fonction :
des quantités achetés (E) - Qté utilisé (S)
Même principe pour l'ensemble de tous les produits sur mes 8 feuilles dont le Nombre de colonnes est inconnues au départ.

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 31 Octobre 2007

• #18

Re : Comment calculer ?

Excuse-moi Banzai64, je ne t'avais pas vu.
Je te remercie bien fort pour ta contribution qui donne une piste intéressante. Mais ne comprenant pas l'anglais et ne maitisant pas les macros, je sui entièrement entre vos mains.

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 31 Octobre 2007

• #19

Re : Comment calculer ?

Bonjour

Un essai mais pas trop testé
A toi de voir et dire ce que tu en penses

 

Pièces jointes

• Economat3.zip

  29.7 KB · Affichages: 19
• Economat3.zip

  29.7 KB · Affichages: 20
• Economat3.zip

  29.7 KB · Affichages: 22

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 31 Octobre 2007

• #20

Re : Comment calculer ?

Bonsoir Banzai64, le forum,

Après un regard rapide (manque de temps) ceci à l'ai correct.
Reste comment le faire boucler sur l'ensemble des colonnes car le nombre n'est pas rigide et aléatoire.
Ayant entré 3 kg de carottes le 3/10 sortis le 6/10, elles ne sont pas apparues sur l'état.
Ai-je loupé quelque chose ?
Je regarde ca plus approfondi dès delmain.

Dans tous les cas un immense merci pour ce magnifique travail.

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 31 Octobre 2007

• #21

Re : Comment calculer ?

Bonsoir

Faut pas avoir un stock à zéro 🙂D😀😀)
C'est ce qui me sert de limite
a voir

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 31 Octobre 2007

• #22

Re : Comment calculer ?

Bonsoir Banzai64, le Forum,

Bien compris Banzai64, cependant, dans la réalité ce cas de figure risque fort de se produire, comment faire alors ?

Reçois toutes mes félicitations en tout cas pour ce magnifique travail accompli et pour lequel personnellement je ne croyais pas cela possible.

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 31 Octobre 2007

• #23

Re : Comment calculer ?

Bonsoir

Essayes celui-ci

 

Pièces jointes

• Economat3.zip

  30.1 KB · Affichages: 31
• Economat3.zip

  30.1 KB · Affichages: 27
• Economat3.zip

  30.1 KB · Affichages: 30

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 31 Octobre 2007

• #24

Re : Comment calculer ?

Bonsoir à vous tous,

Je suis encore sous l'émerveillement du travail accompli par Banzai64, que je remercie de nouveau.
Sur le point mentionné :

Faut pas avoir un stock à zéro () C'est ce qui me sert de limite

Est-il possible d'envisager de "tricher" en mettant dans la ligne masquée la valeur du stock à 1 (police blanche) et de retirer ce 1 lors de(s) opération(s)

Je sais ca fait bidouille mais permettrait d'en sortit ....

En remerciant Banzai64, mutzik, Staple1600, ya_v_ka, Excel_lent, le Forum
pour la peine que vous vous êtes donné et qui me touche tout particulièrement.

ps : quelle est l'astuce pour joindre facilement un fichier ? car j'ai bien du mal à y arriver.

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 31 Octobre 2007

• #25

Re : Comment calculer ?

Bonsoir Banzai64,

Travail remarquable que tu as fait la. Je suis émerveillé.

Puis-je abuser encore de toi afin de te demander de bien me détailler le fonctionnement de ton code (je dirai mot à mot si ce n'était abuser) vraiment génial !

Etant vieux et débutant, enfin presque, je ne comprends pas grand chose à ces codes qui, pourtant m'interessent au plus haut point quand je vois ce que vous arrivez à faire.

Avec mes remerciements sincères et enthousiastes.

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 31 Octobre 2007

• #26

Re : Comment calculer ?

Bonsoir
Ca va pas être évident comme ça à détailler
Des fois je n'arrive pas me suivre
Mais je vais essayer de te mettre des commentaires
Mais pas de suite
Je te remettrais un fichier sur ce fil

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 31 Octobre 2007

• #27

Re : Comment calculer ?

Un grand, grand merci à toi encore une fois.
Je prendrai le temps nécessaire, alors fait de même.
Bonne nuiit et a demain.
Cordialement

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 1 Novembre 2007

• #28

Re : Comment calculer ?

Bonjour
Quelques explications

 

Pièces jointes

• Economat3.zip

  29.8 KB · Affichages: 33
• Economat3.zip

  29.8 KB · Affichages: 32
• Economat3.zip

  29.8 KB · Affichages: 34

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 1 Novembre 2007

• #29

Re : Comment calculer ?

Bonjour Banzai64, le Forum,

Je ne me lasserai pas de te dire merci, merci, merci, pout ton dévouement, ta courtoisie , ta patience et j'en passe.
Grâce à toi, ma petite application a fait un grand bon en avant, de plus bien expliqué, c'est tout simplement génial.
Merci encore et bonne, très bonne continuation à toi.
Bonne journée.

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 1 Novembre 2007

• #30

Re : Comment calculer ?

Bonjour Banzai64, le Forum,

Si je modifie ton code ainsi, celui-ci bouclera-t-il sur les feuilles 11 à 14 afin de relever l'ensemble des sorties

Sub Recap_Cout()
Dim FDep As String
Dim FFin As String
Dim LigD As Long
Dim LigF As Long
Dim LigDate As Long
Dim J As Integer
Dim I As Integer
Dim K As Integer
Dim Nbk As Integer
Dim NbI As Integer

Dim Nom As String
Dim QuelleDate As Date
Dim Trouve As Boolean
Dim Tablo() As Variant
Dim Indice As Integer

Dim Lig As Integer ' Pour le debuggage
Lig = 26

For F = 11 To 14 ' Boucle sur les feuilles 11 à 14
FDep = "leg"
FFin = "Cout"
LigD = Sheets(FDep).Range("A65536").End(xlUp).Row ' Jusqu'ou je vais lire les données
QuelleDate = Sheets(FFin).Range("A4") ' Je récupère la date
Sheets(FFin).Range("A8:C46").ClearContents ' j'efface la zone à imprimer

.................. (poursuite du code)

Next F
Impression ' Impression de l'Etat
End Sub

En te remerciant de nouveau avec joie.

 

Vote positif 0 Vote négatif