Discussion :

[newvision]

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.

[Geache]

Bonjour,

Dans la ligne x(i + 1, 1) =... lorsque i = n,

x(i+1) fait référence à un indice hors de ton tableau.

En fait, tu essaies de donner une valeur à x(n+1) à ce moment là.

Sauf erreur de lecture du code, du moins.

Je pense que tu dois faire un for depuis 1 jusque n-1 pour que ton code fonctionne correctement.

D'autre part, tu attribues une valeur double à ta fonction (AS Double) mais tu termines ta fonction avec

pseudo = x ou x est variant. Tu vas donc avoir une autre erreur Type mismatch.