# Mcro

Pages: 10 (2498 mots) Publié le: 22 mars 2011
tabu = Application.WorksheetFunction.Find("AUD", curve.Offset(N, 0))
For i = 0 To 29
If Left(curve.Offset(i + N + 2, 0), 7) = "FUTURES" Or Left(curve.Offset(i + N + 2, 0), 5) = "SWAPS" Then Exit For Else
If Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13) = " " Then AUDBBR3M(i) = 0 Else AUDBBR3M(i) = CLng(Mid(curve.Offset(i + N+ 2, 0), tabu - 1, 13))
Next i
End If

Set curve = .Find("AUD/BSAUD", LookIn:=xlValues)
tabu = Application.WorksheetFunction.Find("TOTAL", curve.Offset(N, 0))
For i = 0 To 29
If Left(curve.Offset(i + N + 2, 0), 7) = "FUTURES" Or Left(curve.Offset(i + N + 2, 0), 5) = "SWAPS" Then Exit ForElse
If Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13) = " " Then AUDBSAUD(i) = 0 Else AUDBSAUD(i) = CLng(Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13))
Next i
i = 0
For Each cell In Workbooks(book).Worksheets(shet).Range("AUDBBR3M")
cell.Value = AUDBBR3M(i) + AUDBSAUD(i)
i = i + 1
Next cellSet curve = .Find("AUD/BBR6M", LookIn:=xlValues)
tabu = Application.WorksheetFunction.Find("AUD", curve.Offset(N, 0))
For i = 0 To 29
If Left(curve.Offset(i + N + 2, 0), 7) = "FUTURES" Or Left(curve.Offset(i + N + 2, 0), 5) = "SWAPS" Then Exit For Else
If Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13) = " "Then AUDBBR6M(i) = 0 Else AUDBBR6M(i) = CLng(Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13))
Next i
i = 0
For Each cell In Workbooks(book).Worksheets(shet).Range("AUDBBR6M")
cell.Value = AUDBBR6M(i)
i = i + 1
Next cell

i = 0
For Each cell In Workbooks(book).Worksheets("P&L").Range("basis36aud")cell.Value = AUDBBR6M(i)
i = i + 1
Next cell

For i = 0 To 29
If Left(curve.Offset(i + N + 2, 0), 7) ="FUTURES" Or Left(curve.Offset(i + N + 2, 0), 5) = "SWAPS" Then Exit For Else
If Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13) = " " Then CADBA1M(i) = 0 Else CADBA1M(i) = CLng(Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13))
Next i
i = 0
i = i + 1
Next cell

i = 0

i = i + 1
Next cell
For i = 0To 29
If Left(curve.Offset(i + N + 2, 0), 7) = "FUTURES" Or Left(curve.Offset(i + N + 2, 0), 5) = "SWAPS" Then Exit For Else
If Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13) = " " Then CADBA3M(i) = 0 Else CADBA3M(i) = CLng(Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13))
Next i