je vais retravailler le code,
Sub t()
Dim tablo(99), i As Byte
tablo(0) = 1
tablo(1) = 2
For i = 2 To 99
tablo(i) = tablo(i - 2) + tablo(i - 1)
Next
[B1:B100] = Application.Transpose(tablo)
End Sub
Sub t()
Dim tablo(99), i As Byte
tablo(0) = 0
tablo(1) = 1
For i = 2 To 99
tablo(i) = tablo(i - 2) + tablo(i - 1)
Next
[B1:B100] = Application.Transpose(tablo)
End Sub
Re,
Salut Patrick,
rectification, la suite commence par zéro
0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, 17711, 28657, 46368, 75025, 121393, 196418, 317811, 514229, 832040, 1346269, 2178309, 3524578, 5702887, 9227465, 14930352, 24157817, 39088169, 63245986, 102334155, 165580141, 267914296, 433494437, 701408733, 1134903170, 1836311903, 2971215073, 4807526976, 7778742049, 12586269025, 20365011074, ....................................................................
à+
Philippe
Sub t()
Dim tablo() As Double, i As Long
ReDim tablo(1)
tablo(0) = 0
tablo(1) = 1
i = 1
On Error GoTo 1
Do
i = i + 1
ReDim Preserve tablo(i)
tablo(i) = tablo(i - 2) + tablo(i - 1)
Loop
1 [B1].Resize(i) = Application.Transpose(tablo)
End Sub
=ARRONDI(((RACINE(5)+1)/2)^n/RACINE(5);0)
Sub Détail()
Dim tablo%(1476, 308), i%, j%, v%, ret%
tablo(1, 308) = 1
For i = 2 To 1476
For j = 308 To 0 Step -1
v = tablo(i - 2, j) + tablo(i - 1, j) + ret
tablo(i, j) = v Mod 10
ret = -(v > 9)
Next
Next
[C2].Resize(1477, 309) = tablo
End Sub