Calcul à automatiser

Version imprimable

10/04/2008, 11h34
casavba

Calcul à automatiser

Bonjour,

Je bute devant un problème:

J'ai un Chiffre d'affaire de 150 000€
réalisé entre 12/01/2008 et 28/04/2008

En fait j'arrive pas à répartir ce montant proportionnellement au nombre de jour de chaque mois de cette période.

c à d :

10 jours en janvier ------> = 150 000 * 10 / nbre de jours de la période (98 jours)
29 j en février
31 jours en Mars
28 jours en Avril

D'avance merci
10/04/2008, 11h38
MrBidon

je ne suis pas sûr d'avoir bien compris mais pourquoi ne pas faire une macro dans laquelle tu demandes

le nombre de mois ainsi que le nombre de jours compris dans chaque mois.

ensuite tu as tous les paramètres et tu n'as plus qu'à faire les opérations

Bonjour,

Voilà qui me plait (l'acrobatie est ma tasse de thé) :

Regarde ce que fait ceci, déjà (on perfectionnera ensuite)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
 Dim mesmois()
 datedeb = "12/01/2008"
 datefin = "28/04/2008"
 nbmois = Month(datefin) - Month(datedeb)
 ReDim mesmois(nbmois)
 For i = 0 To nbmois
   If i = 0 Then
     mesmois(i) = Day(DateSerial(Year(datedeb), Month(datedeb) + i + 1, 0)) - Day(datedeb)
   ElseIf i < nbmois Then
     mesmois(i) = Day(DateSerial(Year(datedeb), Month(datedeb) + i + 1, 1) - 1)
   Else
     mesmois(i) = Day(datefin)
   End If
   MsgBox "mois " & i + 1 & "===>>>" & mesmois(i) & " jours"
 Next
End Sub

10/04/2008, 14h09
Le Pierre

bonjour

voici ce que j'ai concocté :
http://cjoint.com/?ekohSyPSXe
le code mérite sûrement d'être amélioré mais ça fonctionne (même si la durée s'étend sur plusieurs années).
à plus

Citation:

Envoyé par ucfoutu

Bonjour,

Voilà qui me plait (l'acrobatie est ma tasse de thé) :

Regarde ce que fait ceci, déjà (on perfectionnera ensuite)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
 Dim mesmois()
 datedeb = "12/01/2008"
 datefin = "28/04/2008"
 nbmois = Month(datefin) - Month(datedeb)
 ReDim mesmois(nbmois)
 For i = 0 To nbmois
   If i = 0 Then
     mesmois(i) = Day(DateSerial(Year(datedeb), Month(datedeb) + i + 1, 0)) - Day(datedeb)
   ElseIf i < nbmois Then
     mesmois(i) = Day(DateSerial(Year(datedeb), Month(datedeb) + i + 1, 1) - 1)
   Else
     mesmois(i) = Day(datefin)
   End If
   MsgBox "mois " & i + 1 & "===>>>" & mesmois(i) & " jours"
 Next
End Sub

Impecc

Maintenant comment transposer ton tableau mesmois() en ligne

c à d

si j"ai

1
2
3
4

je veux bien 1 2 3 4

10/04/2008, 14h42
ucfoutu

Citation:

Envoyé par casavba

Impecc

Maintenant comment transposer ton tableau mesmois() en ligne

c à d

si j"ai

1
2
3
4

je veux bien 1 2 3 4

Alors là : ce n'est plus ma tasse de thé (ce n'est plus de l'acrobatie, mais juste du VBA élémentaire) et alors :
ou tu t'y mets (et ce sera parfait)
ou tu attends le reste de quelqu'un d'autre ;)
10/04/2008, 14h47
casavba

Ayayay

la macro ne fonctionne pas si j'ai datefin et date début dans le même mois
alle calcul tjs par rapport à la fin du mois

ex

16/01/2008
25/01/2008

elle me renvoie 19

Or c'est faux
10/04/2008, 14h52
cafeine

Hello,

sinon c'est jouable en une formule, avec les mois en colonne :
formule rentrée en B7 puis recopiée vers le bas

Code:

=MAX(MIN(A8-A7;MIN(A8;DatFin)-MAX(A7;DatDeb));0)/(DatFin-DatDeb)*Montant

A7 : Mois courant
A8 : mois suivant
10/04/2008, 15h03
Le Pierre

bonjour

examine le fichier que je t'ai envoyé tout à l'heure et donne ton avis

à plus

Citation:

Envoyé par casavba

Ayayay

la macro ne fonctionne pas si j'ai datefin et date début dans le même mois
alle calcul tjs par rapport à la fin du mois

ex

16/01/2008
25/01/2008

elle me renvoie 19

Or c'est faux

Je suis désolé de découvrir que tu restes impuissant à continuer (je t'avais dis quye c'était à perfectionner, non ?)

Alors je le fais à ta place :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Command1_Click() Dim mesmois() datedeb = "16/01/2008" datefin = "25/01/2008" nbmois = Month(datefin) - Month(datedeb) ReDim mesmois(nbmois) For i = 0 To nbmois If nbmois = 0 Then mesmois(i) = Day(datefin) - Day(datedeb) ElseIf i = 0 Then mesmois(i) = Day(DateSerial(Year(datedeb), Month(datedeb) + i + 1, 0)) - Day(datedeb) ElseIf i < nbmois Then mesmois(i) = Day(DateSerial(Year(datedeb), Month(datedeb) + i + 1, 1) - 1) Else mesmois(i) = Day(datefin) End If MsgBox "mois " & i + 1 & "===>>>" & mesmois(i) & " jours" Next End Sub
J'espère maintenant que tu sais par quoi il suffit (ultra simple) de compléter pour passer d'une année à l'autre si la durée recouvre 2 ou plusieurs années !!

Allez : retrousse-toi un peu les manches (c'est ravigotant, tu vas voir ...)

10/04/2008, 15h53
alsimbad

peut etre que j'ai mal compris la question, mais j'ai l'impression que vous vous compliquez l'existence pour le plaisir de couper des cheveux en quatre. mais des fois, on est sur que c'est simple et en fait , on a rien compris, donc a tout hasard, je propose une reponse. :D
10/04/2008, 16h55
casavba

Merci Ucfoutu c impecc