Comment calculer ?

mutzik

XLDnaute Barbatruc

• 30 Octobre 2007

• #2

Re : Comment calculer ?

Bonjour Novice,

La disposition de tes produits n'est pas ce que j'estime être la meilleure facon de traiter ton application
- pour ma part, je ferais d'abord une liste de tous mes produits (dans une feuille 'listes')
- dans ma feuille stock, je piocherai dans cette liste le produit à entrer/sortir + date + quantité (négative si sortie ou ajouter une colonne entrée sortie)
- ensuite, il existe moulte manières de connaitre l'état de ton stock pour les différents produits (fonctions de base de données, somme.si(), nb.si(), tableau croisé dynamique ...

ci dessous un exemple que j'avais fait pour un autre forumeur

 

Pièces jointes

• ed.xls

  66 KB · Affichages: 227
• ed.xls

  66 KB · Affichages: 222
• ed.xls

  66 KB · Affichages: 210

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 30 Octobre 2007

• #3

Re : Comment calculer ?

Bonjour Bertrand, le forum,
Merci Bertrand pour ton intervention, cependant j'ai un peu de mal à te suivre, pourrais-tu me donner un petit fichier exemple de ce que tu me suggère.
Amicalement.

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 30 Octobre 2007

• #4

Re : Comment calculer ?

Bonsoir le forum,
Je cherche aide désespéremment.
Merci à vous

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 30 Octobre 2007

• #5

Re : Comment calculer ?

Bonsoir Staple1600, le forum,
Je te remercie, j'ai bien vu le fichier joint en effet mais, ce doit être mon âge, je ne vois pas du tout comment l'adapter à ce que je dois faire...
Accepterais-tu de m'aider ?
En te remerciant et te souhaitant une bonne nuit.

 

Vote positif 0 Vote négatif

ya_v_ka

XLDnaute Impliqué

• 31 Octobre 2007

• #6

Re : Comment calculer ?

Hello

Je compatis, je ne comprends pas non plus à quoi peut te servir le joli fichier joint par notre ami...

D'un autre côté je lui donne raison, ton système risque de devenir vite lourd... et de toucher très vite la limite des 63 produits possibles (à moins d'être sur XL07).

Maintenant je ne vois pas non plus comment faire pour sortir le prix unitaire en tenant compte du FIFO et automatiquement...

Mais je suivrais volontier ce fil, ça m'interresse aussi.

Ya'v

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 31 Octobre 2007

• #7

Re : Comment calculer ?

Bonsoir ya_v_ka, le forum,
Merci de me remonter le moral qui commencais à atteindre un niveau bien bas.
Le problème est, que le centre d'handicpés qui ne dispose que peu de moyen cherche a obtenir rapidement les montants exacts de toutes dépenses y compris les dépenses d'alimentation dont je vais m'occuper.
C'et pourquoi j'ai réalisé ce petit fichier qui fera parti d'un ensemble plus complet. Je ne sais si ma présentation est correst, mais c'est la seule qui m'est venu à l'esprit à ce moment.
La difficulté étant effectivement le rapprochement du PUTTC avec la ou les quantités sorties. Refusant systématiquement l'idée d'un pris moyen.
Je pensais peut être naivement qu'un matheux serait présent sur le forum et qu'il aurait sorti une formule magique comme certaines personnes savent si bien les concocter ici.
Dans l'espérance de votre attente.

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 31 Octobre 2007

• #8

Re : Comment calculer ?

Bonjour

Un début sans garanties

Je pars au taf

 

Pièces jointes

• Economat1.zip

  22.6 KB · Affichages: 85
• Economat1.zip

  22.6 KB · Affichages: 86
• Economat1.zip

  22.6 KB · Affichages: 87

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 31 Octobre 2007

• #9

Re : Comment calculer ?

Bonjour Banzai64, le forum,

Pourrais-tu m'explique ton code (ci-après) stp car je nage. D'autre part, si je clique sur le bouton Test, rien ne se passe ...

Sub Recap_Cout()
Dim FDep As String
Dim FFin As String
Dim LigD As Long
Dim LigF As Long
Dim J As Integer
Dim I As Integer
Dim Nom As String

FDep = "leg"
FFin = "Cout"
LigD = Sheets(FDep).Range("A65536").End(xlUp).Row
LigF = 8
With Sheets(FFin)
For J = 10 To 256 Step 4
If Cells(4, J) = "S" Then
Nom = Cells(2, J - 2)
For I = 5 To LigD
If Cells(I, J) <> "" Then
.Cells(LigF, 1) = Nom
.Cells(LigF, 2) = Cells(I, J)
.Cells(LigF, 3) = Cells(I, J - 2)
LigF = LigF + 1
End If
Next I
End If
Next J
End With
End Sub

En te remerciant pour ton intervention.

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 31 Octobre 2007

• #10

Re : Comment calculer ?

bonjour

Quelques renseignements in the code

 

Pièces jointes

• Economat1.zip

  22.6 KB · Affichages: 77
• Economat1.zip

  22.6 KB · Affichages: 78
• Economat1.zip

  22.6 KB · Affichages: 72

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 31 Octobre 2007

• #11

Re : Comment calculer ?

Bonjour Banzai64,
Merci vraiment de t'intéresser à moi qui patauge lamentablement.
Je regarde ton fichier et te joins ma demande corrigée en espérant que tu me comprendras.
En te remerciant

 

Pièces jointes

• Economat2.zip

  20 KB · Affichages: 55
• Economat2.zip

  20 KB · Affichages: 53
• Economat2.zip

  20 KB · Affichages: 54

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 31 Octobre 2007

• #12

Re : Comment calculer ?

Salut Novice, à tous et aux autres,

Une proposition sans modifier ta structure. Les rubriques sont copiées dès la saisie de la sortie.

Ajout : en A1 tu as le nombre de produits. Tu peux le masquer. Attention, en cas de déplacement, corriger la macro (... To Range("A1"))

 

Pièces jointes

• Economat2 E.zip

  22.6 KB · Affichages: 64

Dernière édition: 31 Octobre 2007

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 31 Octobre 2007

• #13

Re : Comment calculer ?

Bonjour Exel_lent, le Forum,
Je te remercie de ton aide que j'apprécie vraiment, cependant je me suis (comme d'habitude) mal exprimé dans ma demande.
En fonction du jour, je dois chiffrer les sorties en tenant compte de l'ancienneté du stock.
Je joint nouveau fichier ou, je l'espère ceci sera plus compréhensible pour vous.
En vous remerciant.

ps encore une fois, difficulté à joindre le fichier avec ce post, je vais tenter de le mettre sur le suivant.

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 31 Octobre 2007

• #14

Re : Comment calculer ?

nouvelle tentative

 

Pièces jointes

• Economat2.zip

  22.6 KB · Affichages: 62
• Economat2.zip

  22.6 KB · Affichages: 70
• Economat2.zip

  22.6 KB · Affichages: 70

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 31 Octobre 2007

• #15

Re : Comment calculer ?

Salut à tous et aux autres,

Es-tu sûr de ton exemple ?
Vois si le fichier joint correspond avec complémentation dès la saisie de la date en feuille Cout.
Même remarque que précédemment à propos du nombre de produits.

 

Pièces jointes

• Economat 3 E.zip

  23.6 KB · Affichages: 20

Vote positif 0 Vote négatif