Programme - Dépassement de capacité

Sub MonteCarlo()

'déclaration des variables
 Dim x, y, t, c, i, estimation

'Initialisation des valeurs
 Const constPi = 3.14159265358979 'Valeur de Pi approximatif
 estimation = 0
 c = 0 'Compteur nombre de tirages
 i = 0 'Compteur nombre de valeurs dans le quart de cercle
 t = Now + 20 / 24 / 60 / 60 'paramètre pour tempo 20s
 
 Randomize 'intitialisation valeur aléatoire

 While estimation <> constPi And Now < t 'Tant qu'estimate n'est pas égale à constPi, il faut continuer , ajout tempo pour arrêter la boucle si trop long

x = Rnd 'valeur de x aléatoire entre 0 et 1
y = Rnd 'valeur de y aléatoire entre 0 et 1

 c = c + 1

 If x ^ 2 + y ^ 2 <= 1 Then
  i = 1 + i
 End If
 
 estimation = (i / c) * 4
 
 Wend

 End Sub