Mcro

Disponible uniquement sur Etudier
  • Pages : 10 (2498 mots )
  • Téléchargement(s) : 0
  • Publié le : 22 mars 2011
Lire le document complet
Aperçu du document
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



'******************************** CAD *********************************
Set curve = .Find("CAD/BA1M", LookIn:=xlValues)
tabu = Application.WorksheetFunction.Find("CAD", 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 CADBA1M(i) = 0 Else CADBA1M(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("CADBA1M")
cell.Value =CADBA1M(i)
i = i + 1
Next cell

i = 0

For Each cell In Workbooks(book).Worksheets("P&L").Range("basis13cad")
cell.Value = CADBA1M(i)
i = i + 1
Next cell
Set curve = .Find("CAD/BA3M", LookIn:=xlValues)
tabu = Application.WorksheetFunction.Find("CAD", curve.Offset(N, 0))
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
Set curve = .Find("CAD/BSCAD",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 For Else
If Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13) = " " Then CADBSCAD(i) = 0 Else CADBSCAD(i) =...
tracking img