Discussion :

[tidi77]

Bonjour à tous ,


je recherche un code plus simple qui me permettra de calculer facilement " calculN+50" sans avoir a le faire étape par étape comme l'exemple ci-dessous. Merci de me venir en aide .

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub N1()
    Dim annee As Integer
    annee = Year([date_fin]) + 1
    Call remplissageFeuilleSuivante("CalculN", "CalculN+1", annee)
End Sub
Sub N2()
    Dim annee As Integer
    annee = Year([date_fin]) + 2
    Call remplissageFeuilleSuivante("CalculN+1", "CalculN+2", annee)
End Sub

[Theze]

Bonjour,

Il faudrait déjà avoir le code de la Sub remplissageFeuilleSuivante() pour savoir comment le modifier car quand je vois les arguments passés je suis assez curieux ("CalculN", "CalculN+1", annee) !

[unparia]

Bonjour
Ma manière personnelle de guider vers la solution.
Regarde ce que fait ceci, analyse, comprends et utilise :

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
Private Sub toto()
 Dim annee As Integer, k As Integer
 annee = 2018
 For k = 0 To 50
   remplissageFeuilleSuivante k, annee
 Next
End Sub
 
Private Sub remplissageFeuilleSuivante(k As Integer, annee As Integer)
   Dim suf As String, la_feuile As String, annee1 as integer, annee2 as integer
   If k = 0 Then suf = "" Else suf = "+" & k
   la_feuille = "Calcul" & suf
   annee1 = annee + k
   annee2 = annee + k + 1
  'et fais tes traitements sur la feuille la_feuille et les années annee1 et annee2
  'regarde ce qu'elle valent --->>
  MsgBox la_feuille & "  " & annee1 & "  " & annee2
End Sub

[tidi77]

Bonjour,

Il faudrait déjà avoir le code de la Sub "remplissageFeuilleSuivante()" pour savoir comment le modifier car quand je vois les arguments passés je suis assez curieux ("CalculN", "CalculN+1", annee) !

Voici le sub remplissage :

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
 
Sub remplissageFeuilleSuivante(ByVal feuille1 As String, ByVal feuille2 As String, ByVal annee As Integer
 
    Dim nbLignes As Integer
    Dim InfoCols As Range 'Tableau de paramétrage des entrées et fonction, feuille "Param"
    Dim NRows As Integer
    Dim Row As Integer
    Dim Col As Integer
    Dim FormulaVec() As String, Formulas()
    Dim command As Variant, NumberFormat As String, ChangeNumberFormat As Boolean
    Dim j As Integer
    Dim date_init As Date
    Dim date_fin As Date
    Dim start, finish, total As Double
 
    start = Timer
 
    Set InfoCols = Range("Info_Cols") 'paramétrage sortie ligne à ligne
    NRows = InfoCols.Rows.Count 'Nombre de colonnes en sortie (éventuellement vides)
    date_init = DateSerial(annee - 1, 12, 31)
    date_fin = DateSerial(annee, 12, 31)
 
    With ThisWorkbook.Sheets(feuille1)
        nbLignes = 2
        While .Cells(nbLignes, 1) <> ""
            nbLignes = nbLignes + 1
        Wend
        nbLignes = nbLignes - 1
    End With
 
    With ThisWorkbook.Sheets(feuille2)
        .Cells.ClearContents
        .Cells.NumberFormat = "General"
        .Cells.Interior.Pattern = xlNone
        .Cells.Interior.TintAndShade = 0
        .Cells.Interior.PatternTintAndShade = 0
 
 
        Col = 0
        For Row = 1 To NRows
 
            'Passage à la colonne suivante
            Col = Col + 1
 
            'Titres et couleurs en-têtes
            .Cells(1, Col) = InfoCols(Row, 1)
            .Cells(1, Col).Interior.Color = InfoCols(Row, 1).Interior.Color
 
            'Récupération sortie voulue = command
            command = InfoCols(Row, 1 + colonne_fonction_info_cols)
 
            If command <> "" Then
 
                command = Replace(command, "date_fin", CDbl(date_fin))
                command = Replace(command, "date_deb", CDbl(date_init))
 
                If InfoCols(Row, 2) = 1 Then
                    command = insertionFeuille(feuille1, command)
                End If
 
                'Cas command = nombre
                If WorksheetFunction.IsNumber(command) Then
                    .Range(Cells(2, Col).Address, Cells(nbLignes, Col).Address).Value2 = command
 
                'Cas command = formule
                Else
                    'lecture formule
                    FormulaVec = readFormula(command, InfoCols)
                    'vecteur de la taille du portefeuille
                    ReDim Formulas(1 To nbLignes - 1)
                    'Formules avec lignes correspondantes
                    For j = 2 To nbLignes
                            Formulas(j - 1) = RowFormula(FormulaVec, j)
                    Next
                    'Copie formule
                    .Range(ColNum2Text(Col) & 1 + 1 & ":" _
                                              & ColNum2Text(Col) & nbLignes).Formula = Formulas
 
                End If
 
            End If

[clementmarcotte]

Bonjour,

Tu veux prévoir quoi sur 50 ans ? À moins que les erreurs en moins compensent exactement les erreurs en plus, le total au bout de 50 ans sera juste farfelu.


Et puis, comme tu ne sais jamais si ta prévision de l'année suivante, ni celle de l'année précédente, d'ailleurs, étaient à court ou en trop, ni l'ordre de grandeur de la différence, cela ne mène absolument à rien; à part que de montrer au professeur que tu es capable de produire 50 feuilles par macro.

[tidi77]

Bonjour,

Tu veux prévoir quoi sur 50 ans ? À moins que les erreurs en moins compensent exactement les erreurs en plus, le total au bout de 50 ans sera juste farfelu.


Et puis, comme tu ne sais jamais si ta prévision de l'année suivante, ni celle de l'année précédente, d'ailleurs, étaient à court ou en trop, ni l'ordre de grandeur de la différence, cela ne mène absolument à rien; à part que de montrer au professeur que tu es capable de produire 50 feuilles par macro.

L'idée est de réaliser une prévision des revenus sur 50 ans . ce sont des estimations

[unparia]

L'idée est de réaliser une prévision des revenus sur 50 ans . ce sont des estimations

En monnaie courante ou en monnaie constante (ce n'est pas la même chose du tout et c'est très important, sur une longue durée )

EDIT : à lire (j'ai choisi là le plus simple à comprendre) :
https://www.maxicours.com/soutien-sc...de/223348.html

Et si l'on ramène (ce qui est le plus logique) l'estimation des revenus à celle du pouvoir d'achat : bien fort serait celui qui serait capable d'estimer l'évolution des indices au cours des 50 années à venir.

[tidi77]

En monnaie courante ou en monnaie constante (ce n'est pas la même chose du tout et c'est très important, sur une longue durée )

En monnaie courante sous l'hypothèse de taux de rendement fixe .

[unparia]

En monnaie courante sous l'hypothèse de taux de rendement fixe .

Ne pas confondre double-pattes et patachon.
Les pays où le "taux de rendement" s'est avéré nettement supérieur à celui de l'inflation n'ont pas manqué. Il y en a même un dont tout le monde parle en ce moment (en Amérique Centrale ...)
Relis mon edit dans mon message précédent

[clementmarcotte]

Bonjour,

En monnaie courante sous l'hypothèse de taux de rendement fixe .

Donc, tu es parti tout de travers. Si tu as un taux de rendement fixe, cela veut dire que tu dois augmenter tes montants en pourcentage et non en montant fixe. C'est la règle liée à l'intérêt composé. Les seules exceptions sont les obligations, les débentures et les cas où l'investisseur encaisse directement les intérêts sans qu'ils ne soient réinvestis.

Valeur finale d'un montant d'un montant fixe placé à intérêts composés durant 50 ans, les intérêts capitalisés annuellement:

s =P* (1+i) ^ 50

où :
a= valeur finale
P=montant investi
i= taux d'intérêt annuel exprimé en décimales

Et puis, même pas besoin de VBA, la formule est déjà intégrée à Excel