Insertion de numéros de ligne dans des cellules

[gogo850]

Bonsoir,

Je sollicite votre aide dans le cadre d'une application visant à enregistrer des amortissements. J'essaye de créer ceci via vba.

Je rencontre un problème dans la création de mon tableau d'amortissement qui doit afficher le détail de l'opération, c'est à dire l'exercice/la Valeur Comptable/L'annuité/La Valeur Nette Comptable.

Pour le moment j'essaye en fonction de la durée d'amortissement, d'afficher dans les cellules correspondantes à l'exercice les chiffres correspondants aux années.
Par exemple, si mon amortissement est sur 5 ans, il faut que dans le tableau, dans les cellules d'une même colonne, s'affiche les données suivantes : N +1,N +2,N+3,N+4,N+5.
Je suis coincé pour le moment je ne sais trop quelle formule utilisée...
Avez vous des pistes ?

Je vous joins mon fichier en PJ afin que vous ayez une idée du travail.

Merci !

[mercatog]

Code :

1
2
3
4
5
6
    Duree = Val(.Cells(4, 4).Value)
    If Duree > 0 Then
        For i = 1 To Duree
            .Cells(10 + i, 1) = i
        Next i
    End If