Bonsoir , j'ai écrit une petite fonction vba , mais quand je la teste avec des valeurs moyennes , ça fait bugger mon pc car ma fonction n'est pas optimisée , la voici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Function SuiteN(ByVal n As integer, ByVal x As Double) As Double
'Renvoie une valeur approchée de la racine de x
If n = 0 Then
    SuiteN = x / 2
ElseIf n > 0 Then
    SuiteN = (SuiteN(n - 1, x) + x / SuiteN(n - 1, x)) / 2
Else
    SuiteN = -1
End If
End Function
Ma 1ere question est : quelqu'un peut il m'indiquer précisément comment je peux tester la fonction pas à pas avec toutes les étapes , que puis je écrire comme petite procédure et dans quelle fenêtre puis je voir les étapes?

Ma seconde question : si je fais Newton(30;2) , ça bug car 30 est trop grand , qu'est ce que je dois améliorer ici svp , le nombre de récursions sur n ? avez vous un indice ? Je ne souhaite pas une réponse tte faite je veux chercher , donc si vous avez un indice je suis preneur .

Je vous remercie .