Discussion :

[casavba]

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

[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

[ucfoutu]

Bonjour,

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A7 : Mois courant
A8 : mois suivant

[Le Pierre]

bonjour

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

à plus

[casavba]

Bonjour,

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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

[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