bonsoir, j'ai un exo en visual et ce que j'ai fait me laisse perplexe, si quelqu'un pouvait y jeter un coup d'oeil svp ..
 
j'ai (un) avec n>0 une suite numérique avec u1 = 2 et un = 2u(n-1)+3
je dois écrire un algorithme qui demande à l'utilisateur la valeur de n puis affiche u(n)
 
voila ce que j'ai écrit :
 
Sub exo()
 
Dim i, n As Integer
 
Dim S() As Integer
 
n = InputBox("donner la valeur de n" )
 
ReDim S(n)
 
For i = 1 To n
S(1) = 2
S(i) = 2 * S(i - 1) + 3
Next
 
MsgBox ("la valeur de Sn est " & S(n))
 
End Sub
 
ça tourne, le soucis c'est que j'arrive pas à comprendre pourquoi quand je mets n=1 il calcule et trouve S(1)=3 alors que je précise bien que S(1)=2 .  
  
 
si qqn pouvait m'aider à corriger ça svp et jeter un ptit coup d'oeil sur mon prog, merci !