Discussion :

[clemanz]

Bonjour à tous,

Dans le cadre d'un stage en entreprise, je dispose de nombreuses entrées de type, par colonnes :
Montant
Date début
Date fin

Janvier
Février
...
Décembre

Et je cherche à étaler le montant sur les différents mois correspondants à la durée, de façon proportionnelle.
J'ai écrit un code qui marche plutôt bien (je suis pas super forte en VBA donc c'est possible que ce ne soit pas la meilleure façon de faire). Cependant, je suis complètement bloquée lorsque la durée est supérieure à 12 mois.

Je vous mets mon code ici :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub Monthly_Computation()
 
nb_col = Worksheets("Past & On-going").Range("A1").End(xlToRight).Column
 
 
For j = 2 To nb_col
 
Worksheets("Past & On-going").Columns(j).Activate
 
 
Total = Selection.Range("A7").Value - Selection.Range("A6").Value + 1
 
 
nb_first = 31 - Day(Selection.Range("A6")) + 1
nb_last = Day(Selection.Range("A7"))
nb_inter = Month(Selection.Range("A7")) - Month(Selection.Range("A6")) - 1
 
 
For i = 1 To 12
 
    If Month(Selection.Range("A6")) = i Then
        first_amnt = (nb_first / Total) * Selection.Range("A5").Value
        Selection.Range("A" & 11 + i).Value = first_amnt
    End If
 
 
    If Month(Selection.Range("A7")) = i Then
        last_amnt = (nb_last / Total) * Selection.Range("A5").Value
        Selection.Range("A" & 11 + i).Value = last_amnt
    End If
 
Next i
 
 
 
rest = Selection.Range("A5").Value - first_amnt - last_amnt
 
For k = 1 To 12
 
    If Month(Selection.Range("A6")) + nb_inter = k Then
        If rest > 1 Then
            Selection.Range("A" & 11 + k).Value = rest / nb_inter
                If nb_inter > 1 Then
                    For l = Month(Selection.Range("A6")) + 1 To Month(Selection.Range("A6")) + nb_inter - 1
                    Selection.Range("A" & 11 + l).Value = rest / nb_inter
                    Next l
                End If
        End If
    End If
 
Next k
 
Next j
 
End Sub

Et ci-joint se trouve mon fichier pour que vous ayez une meilleure idée de ce que je cherche à faire. Revenues v4.xlsm

Je pense que je vais être obligée de faire quelque chose comme suit directement sur mon fichier Excel:
Janvier 15
février 15
...
décembre 15

Janvier 16
Février 16
...
Décembre 16

Mais je ne vois pas bien comment traduire ça sur VBA...


Vraiment si vous aviez une petite idée de comment je pourrais m'en sortir, vous me sauveriez !


Un GRAND merci d'avance !

Clem

[clemanz]

Hello c'est encore moi ! Si l'un d'entre vous a ne serait-ce qu'une petite idée ça m'aiderait beaucoup ... Je suis toujours bloquée

[Invité]

Bonsoir,
C'est pas ce que tu veux ,mais il y a tout!

http://www.tableau-amortissement.fr/...el-openoffice/

[clemanz]

Hello !

Merci beaucoup pour ta réponse
Je suis vraiment désolée mais je ne comprends pas bien comment marche le fichier et surtout en quoi il pourrait m'aider.
Si tu pouvais m'en dire un petit peu plus ce serait génial !

Merci beaucoup !