Compléter cellule selon chiffre donné

Bonjour,

Je souhaiterais établir un état des dettes de ma société, et les répartir entre 1 et 48 mois.

J'aimerais savoir qu'elle formule entrée, afin que les colonnes se remplissent automatiquement en fonction du nombre de mois entrée.

Le nombre de mois est dans la colonne C, et à partir de la colonne D, j'ai mis les mois de octobre 2011 à décembre 2015.

Exemple:

Si dans la colonne B montant je mets 48000 et nombre de mois je mets 48, les colonnes doivent se remplir avec un montant de 1000€ sur 48 mois.

Mais si je modifies le nombre de mois à 24, les colonnes suivantes doivent se remplir avec 2000€ sur 24 mois.

Bonjour,

voir fichier joint.

Je te remercie sincèrement ma poire, tu 'mas rendu un trés grand service

Bonjour à tous,

En VBA

attention aux arrondis !

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%, Prêt#, Nb#, Traite#
    If Not Application.Intersect(Target, Range("d3,e3")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Application.ScreenUpdating = False
        Prêt = Range("d3")
        Nb = Range("e3")                            'nombre remboursements
        Traite = Application.RoundUp(Prêt / Nb, 2)  'arrondi Sup

        Range("a4:b" & [a65000].End(xlUp).Row + 1).ClearContents 'efface
        For i = 1 To Nb - 1
            Cells(65000, "a").End(xlUp)(2) = i
            Cells(65000, "b").End(xlUp)(2) = Traite
        Next i
        '--- dernière traite ---
            Cells(65000, "a").End(xlUp)(2) = "solde"
            Cells(65000, "b").End(xlUp)(2) = Prêt - Traite * (i - 1)

        Application.Goto Range("a1"), Scroll:=True
        Target.Activate
    End If
End Sub

Amicalement

Claude