Application Match selon une date

Bonjour à tous,

Je souhaiterais effectuer un match à partir d'une date qui se trouve dans une feuille ("Performance") et faire la recherche sur une autre feuille ("VL_AUM").

Mon objectif est de déterminer un Range, qui dépend de deux dates. C'est pour cela que je souhaite utiliser la fonction match.

J'ai besoin d'un Range car ensuite je veux faire appel à la fonction perf()

Sub performance()

Dim tab_F() As Variant

Dim Tab_P()

Dim i As Integer

Dim Code As Variant

'Dim Iligne_D As Variant

'création d'un tableau avec le numéro des fonds

tab_F() = Array("387003", "830026", "387003")

'déterminer le code portefeuille

For i = 0 To 2

Code = tab_F(i)

'filtre selon le code portefeuille

Worksheets("VL_AUM").Range("A1").AutoFilter _

Field:=1, _

Criteria1:=Code, _

Operator:=xlFilterValues

x = Application.WorksheetFunction.Match(Worksheets("Performances").CLng(Cells(2, 1 + 1)), Worksheets("VL_AUM").Range("B2:c831"), 0)

Next i

MsgBox (Iligne_D)

End Sub

J'ai une erreur 438 qui apparait mais je n'arrive pas à la corriger…

Pourriez vous m'aider ?

Très bonne aprem à tous.

Bonsoir

Dans votre sub performance, modifiez cette ligne par celle ci-dessous

x = Application.WorksheetFunction.Match(Worksheets("Performances").Cells(2, 1 + 1), Worksheets("VL_AUM").Range("B:B"), 0)

Si ok, cliquez sur le petit v en haut à droite pour cloturer le fil

Cordialement

Bonjour,

ci-jointe une proposition

Merci pour votre aide !

C'est top !