Salut
J'ai un probleme avec vba à chaque fois il me donne
Erreur 9: L'indice n'appartient pas à la selection
Je sais pas quoi faire je suis debutante en vba.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function pseudo(x0 As Integer, n As Integer) As Double
Dim a As Integer
Dim r As Integer
Dim q As Long
Dim m As Long
Dim x As Variant
ReDim psi(n, 1) As Integer
ReDim x(n, 1) As Variant
Dim i As Integer
x(1, 1) = x0
a = 16807
m = 2147483647
r = 2836
q = 127773
 
 For i = 1 To n
 psi(i, 1) = (x(i, 1) / q) - (a * x(i, 1) / m)
 
 x(i + 1, 1) = a * (x(i, 1) Mod q) - r * (x(i, 1) / q) + m * psi(i, 1)
 Next i
 pseudo = x
 
 
End Function
Merci de m'aider.