Dates et cash flow

Version imprimable

16/07/2009, 22h21
Ropie94

Dates et cash flow

Bonjour a tous

Voici mon probleme

Jai deux feuilles
Sur la premierre il y a des dates de debut et de fin pour differents travaux avec leur cout ( jai deja créé une macro pour ajouter ou supprimer un travail).
Sur ma deuxieme feuille j'ai un cash-flow, chaque periode du cash flow egale un trimestre.
Ce que je souhaite faire c'est inserer mes couts de ma premiere feuille dans le cash flow aux periodes correspondantes.

Voici un example pour clarifier

Supposons que mon premier travail commence le 1er avril2009 et fini le 30 septembre 2009
et mon Cash flow commence le 1er janvier 2009 et fini le 1er janvier 2011 ( il y a donc 8periodes/trimestre)
je souhaite que le cout du travail soit proportionellement repartit sur la deuxieme et troisieme periodes du cash flow.
je souhaite egalement que si les dates sont modifiées, cela soit automatiquement pris en compte dans mon cash flow..

Est il possible de faire ca avec VBA. Si oui quelqu'un peut il me donner un coup de main??

En vous remerciant par avance
16/07/2009, 23h08
bosk1000

bonjour

ça doit être possible, mais je trouve que l'on manque d'élément
il faudrait que tu envois un fichier excel, montrant le cadre de tes tableaux
17/07/2009, 08h43
Krovax

Bonjour,
Comme le dit justement Bosk oui c'est possible mais on manque d'info pour t'aider.
Par contre joindre un fichier excel est a double tranchant, c'est plus pratique, mais tu auras moins de personne qui te répondront.

Tu résonne en terme de cash flow trimestre etc.... moi je résonne en terme de valeur dans une cellule de date,... Que se soit du cash flow ou le prix des livraison de pizza c'est du pareille au même pour moi.

Essaye de transposer ton problème en termes mathématiques avec des équations et tous, d'expliquer dans quel colonne/ligne trouver chaque composant de ton équation et la on pourra facilement t'aider, sans cela seul les personnes qui travaillant dans le même domaine que toi te comprendront.
Ou alors va falloir ce souvenir de nos cours d'éco pour ceux qui en ont eu. Les miens étaient le vendredi de 8h à 10h et les soirée le jeudi de 23h à 5h, tu comprendras que j'aurais du mal a te suivre :mouarf:
17/07/2009, 10h12
Ropie94

merci pour vos réponses!!
c'est vrai je n'ai pas etait tres claire alors je vais essayer de faire mieux:oops:

voila dans ma première feuille
la premier colonne représente un type de travail, la deuxième colonne donne la date a laquelle le travail commence, la troisième la date a laquelle le travail se finit et enfin la quatrième colonne représente le cout d'exécution du travail

sur mon autre feuille
il y a ce que j appelle le cash flow ( dans mon cas cela est tres simplifié car mon cash flow ne représente que l'argent dépenser en fonction du temps)
La première ligne représente les périodes( 1,2,3,4,5....) de mon cash flow
la seconde ligne représente la date a laquelle la periode commence ( dans mon cas ce sont des trimestre donc j ai 01/01/2009, 01/04/2009, 01/07/2009....)

Ce que j'essaye de faire c'est de faire correspondre le cout de mon travail aux périodes correspondantes.. par exemple

la construction d'un bâtiment commence le 01/02/2009 (premier trimestre) et fini le 15/08/2009 (troisième trimestre) avec un cout de 150 000 €, la construction se déroule donc sur les trois premiers trimestres de 2009.
je souhaite que dans mon cash flow il apparaissent 50 000 € dans les trois premières périodes...

Je souhaite aussi que si les dates sont modifiées, le cash soit automatiquement mis a jour (il y a souvent du retard dans la construction;) )..

Voila j'espère avoir été un peu plus claire..

Merci encore!!!!
17/07/2009, 10h20
Krovax

Donc corrige moi si je me trompe
Il faut
Sur la première feuille compter le nombre de jour entre la période de début et celle de fin (variable duree)
et récupérer le cout (variable cout)
on a donc le cout par jour (CpJ=cout/duree)
Sur la deuxième feuille
On a une série de période

'Pour chaque période on calcul la durée
Période i (donc colonne i+1 je suppose)
la durée de la période Dp=dateligne2 colonne i+2(date début du suivaint)- dateligne2 colonne i+1
on écrit ligne 3 colonne i+1 Dp*CpJ

Et pour la dernière colonne on prendra pas la date de la colonne suivante mais la date de fin de chantier

C'est bien ca?
Tu vois ca c'est un début d'algo facile a écrire et qui après peus être transcris en VBA en quelque minutes. Un poste comme celui ci la réponse arrive sur le poste suivant le troisième te sert juste a dire merci ca fonctionne (là je suis un peu optimiste mais bon :mouarf:)
17/07/2009, 10h24
Ropie94

Petites precisions

Citation:

Je souhaite aussi que si les dates sont modifiées

je parle des dates de constructions ( debut et fin) et non des periodes..

Voila aussi pour etre sur que vous ayez compris, j'ai dis a quoi correspondaient mes deux premieres lignes.. Les suivantes correspondent donc aux couts de chaques travail par example

Periodes 1 2 3 4
01/01/2009 01/04/2009 01/07/2009 01/10/2009

Job 1 50 000 50 000 50 000

A++
17/07/2009, 10h30
Krovax

Tu pourrais me dire si l'algo que je t'ai proposé te vas? parce que la j'ai l'impression d'avoir "parlé à un mur"
17/07/2009, 10h31
Ropie94

Oui Krovax c exactement ca (décidément tu m'aura beaucoup aidé)!!!
j'ai essayé de représenter mon tableau sur le post précédant mais bon ...:?

en tout cas tu as compris mon probleme.. et encore mieux meme tu veux calculé le cout par jour et calculé le nombre de jours dans chaque periode si j'ai bien compris!!!
Je pensais juste divisé le cout par le nombre de périodes mais ton idée me plait beaucoup plus!!!

MERCI ( une fois de plus)
17/07/2009, 10h38
Krovax

Maintenant je vais être méchant
Je t'ai donné l'algo, j'aimerais que tu essayes de le transcrire en VBA, laisse en français ce que tu ne sais pas faire, (les différence de date, la recherche de la dernière colonne,etc)
tu peux laisser par exemple

Code:

dureeperiode=différence entre la date ligne2 colonne i et la date ligne 2 colonne i+1 de longlet Feuil2

J'essayerais de te transcrire ca en VBA mais j'ai envi que tu travail un peu. Je veux bien aider et grandement même mais pas faire tout a ta place, la j'ai déjà fait l'algo si en plus je le transcrit, je vais demander a recevoir ta paye :mouarf:

Voila essaye d'être le plus précis possible

Re tout le monde,

voila j'ai essayé quelque code mais bon cela ne marche pas
je suis perdu si quelqu'un a suivi la conversation et aurait une idée..

voici mes code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
'definition de la location de mes cellules dans mes plages
    Stardate = Cells(oRow1, oCol1).Offset(10, 0).Value
    EndDate = Cells(oRow1, oCol1).Offset(10, 1).Value
    Duration = EndDate - StartDate
    TotalCost = Cells(oRow2, oCol2).Offset(88, 17).Value
    CostPerDay = TotalCost / Duration
 
'repeter l'action jusqu'a que la date de finission soit inferieur a date de la prochaine periode.
 
'Cells(oRow3, oCol3).Offset(1, i + 1)signifie la deuxieme ligne de mon cash flow où se trouve la date de chaque periode
 
 
    Do Until Cells(oRow3, oCol3).Offset(1, i + 1).Value > EndDate
 
'si le debut de ma  periode < StartDate < debut de la prochaine periode ==> le cout = le nombre de jour de chantier dans cette periode * le cout/jour
    If Cells(oRow3, oCol3).Offset(1, i + 1).Value < StartDate < Cells(oRow3, oCol3).Offset(1, i + 2).Value < EndDate Then
    Cells(oRow3, oCol3).Offset(3, i + 1).Value = (Cells(oRow3, oCol3).Offset(1, i + 2).Value - StartDate) * CostPerDay
 
'si EndDate est pendant la prochaine periode ==> le cout = le nombre de jour de chantier pendant cette periode * le cout/jour
            If Cells(oRow3, oCol3).Offset(1, i + 2).Value < EndDate < Cells(oRow3, oCol3).Offset(1, i + 3).Value Then
                Cells(oRow3, oCol3).Offset(3, i + 2).Value = (EndDate - Cells(oRow3, oCol3).Offset(1, i + 2).Value) * CostPerDay
            Else
' si la fin de mon chantier n'est pas dans cette periode mais plu tard ==> coute = nombre de jour dans la periode * cout/jour
                Cells(oRow3, oCol3).Offset(3, i + 2).Value = (Cells(oRow3, oCol3).Offset(1, i + 3).Value - ActiveCell.Value) * CostPerDay
            End If
    Else
'faire i = + 1 je ne sais pas trop comment faire ca
    ActiveCell.Offset(0, 1).Select
    End If
 
    Loop

Merci d avance

17/07/2009, 21h24
Krovax

pourquoi tu utilise celle plus un offset?

Code:

Cells(oRow3, oCol3).Offset(1, i + 2).Value

ca revien a faire

Code:

Cells(oRow3+1, oCol3+i+2).Value

Et ca simplifie pas mal la compréhension du code
Et a aucun moment tu change d'onglet non?
Je vais essayer de voir un code dans le week-end