Paiement comptant/30/45/60 jours

Bonjour,

Je dois faire un Excel contenant le compte de résultat et la trésorerie d'une simulation d'entreprise or dans ce jeu les paiements des matières premières et des biens vendus peuvent être fait soit en comptant, 30 jours, 45 jours, 60 jours et 90 jours. Dans mes décisions de chaque mois j'ai créé une liste ou je choisie quel est le mode de paiement au mois N. Et j'aimerai que le compte de résultat et la trésorerie s'adapte automatiquement en fonction de cette décision (donc dans la trésorerie les entrées/sorties s’afficheraient au moins N+1/2/3 suivant le mode de paiement).

J'ai pensé à utiliser dans chaque case de ma trésorerie un if mais ça devient très compliqué lorsque par exemple au mois N on paye comptant et au mois N-1 (resp N-2) on paye à 30 jours (resp 60 ou 45 jours).

Existerait t'il un moyen plus simple de faire ça ?

Je vous mets le excel en question mais je ne suis pas sûr que ça vous aide beaucoup, c'est un le bazard.

J'ai résolu mon problème avec un script en VBA. Je vous mets l'algo au cas où :

Sub treso_hydratantes()
    Dim Mois(11) As Double
    Dim Ent(14) As String
    Dim Hydratante(14) As Double
    Set Entrees = Worksheets("Entrées")
    Set CdR = Worksheets("Compte de Résultats")
    Set Tres = Worksheets("Trésorerie")
    NoLig = 16
    NoLig_CdR = 7
    NoLig_Tresorerie = 5
    For i = 1 To 12
        Select Case Entrees.Cells(NoLig, i + 4)
        Case Is = "Comptant"
            Mois(i) = Mois(i) + CdR.Cells(NoLig_CdR, i + 2) * 1.2
        Case Is = "30 jours"
            Mois(i + 1) = Mois(i + 1) + CdR.Cells(NoLig_CdR, i + 2) * 1.2
        Case Is = "45 jours"
            Mois(i + 1) = Mois(i + 1) + CdR.Cells(NoLig_CdR, i + 2) * 1.2 / 2
            Mois(i + 2) = Mois(i + 2) + CdR.Cells(NoLig_CdR, i + 2) * 1.2 / 2
        Case Is = "60 jours"
            Mois(i + 2) = Mois(i + 2) + CdR.Cells(NoLig_CdR, i + 2) * 1.2
        Case Is = "90 jours"
            Mois(i + 3) = Mois(i + 3) + CdR.Cells(NoLig_CdR, i + 2) * 1.2
        End Select
    Next

    For i = 3 To 14
        MsgBox Mois(i - 3)
        Tres.Cells(NoLig_Tresorerie, i) = Mois(i - 3)
    Next
End Sub