Bonjour à tous,
j'ai écris ce bout de code qui fonctionne pas du tout, j'ai beau chercher mais je ne retrouve pas l'erreur je souhaite ramener les valeurs presente dans la plage (FI99:FI1030) deuxième colonne feuille2 dans ma plage (C5:C1030) feuille3. Je vous remercie de vos réponses
Sub calcul()
Dim S1 As Worksheet
Dim S2 As Worksheet
Dim s3 As Worksheet
Set S1 = Worksheets("List")
Set S2 = Worksheets("Temp")
Set s3 = Worksheets("Calcul")
'=========================================================
' FXC SW Equity
'==================================================
' calcul nombre de donées présentes dans la colonne "FI"
s3.Cells(2, 3).Value = Application.WorksheetFunction.Count(S2.Columns(165))
S2.Select
S2.Range(Cells(99, 165), Cells(2000, 165)).Select
Selection.Copy
s3.Select
Range(Cells(5, 2), Cells(1000, 2)).Select
ActiveWindow.SmallScroll Down:=-108
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(Cells(5, 2), Cells(1000, 2)).NumberFormat = "m/d/yyyy"
'==============================================================
' calcul average BID ASK SPREAD % colonne "C"
'==============================================================
' Titre (average bid ask spread)
s3.Cells(4, 3) = " AVERAGE BID ASK SPREAD %"
' calcul des valeurs
Dim a As Long
For a = 5 To 1030 'numéro des lignes
s3.Cells(a, 3) = Application.VLookup(s3.Cells(a, 2), S2.Range(Cells(99, 165), Cells(1030, 166)), 2, False) ' Ramène les valeurs en fonction de la concordance entre les colonnes "B" et "FI"
Next a
End Sub
la ligne consernée est la suivante:
s3.Cells(a, 3) = Application.VLookup(s3.Cells(a, 2), S2.Range(Cells(99, 165), Cells(1030, 166)), 2, False)
Cordialement