Et puis, si tu ne récupères pas la valeur de var1 pour un autre calcul, mais si c'est simplement pour écrire une valeur dans une cellule, autant utiliser une procédure normale plutôt qu'une fonction :
Sub var1() Dim i As Integer Dim somme As Double For i = 0 To 360 somme = somme + (100000 / 30 / 12) / (1.01) ^ i Next Cells(1, 1) = somme End Sub |
et n'oublies pas de mettre un S à Cells et supprimer le "A" dans l'adresse de la cellule
cell(A1, 1) = somme
Cells(1, 1) = somme
Message édité par otobox le 23-04-2013 à 08:06:30
---------------
OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons