Bonsoir , j'ai écrit une fonction récursive qui calcule la somme des n 1ers entiers , j'ai écrit une macro pour la tester et à la compilation j'ai l'erreur suivante :

erreur 28 , mémoire sur la pile insuffisante

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Function sommeEntiersRec(ByVal n As Long) As Long
Dim i As Long
    If i <= n Then
    sommeEntiersRec = sommeEntiersRec(n)
    Else
    sommeEntiersRec = n
    End If
End Function
au déboggage ça me surligne la ligne en dessous du if en jaune , si quelqu'un peut m'éclairer , merci .