Bonjour à toutes et tous,

Voici mon problème : j’essaie de mettre en place un code qui me permet d’effectuer une fonction INDEX, MATCH. Lorsque j’exécute la macro le message suivant apparaît « Impossible de lire la propriété Match de la classe WorkhseetFunction.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub jeTeste3()
    Dim Myrange As Range
    Set Myrange = Range("ListeMois")
    Dim MyRange2 As Range
    Set MyRange2 = Range("ListeProduit")
    Dim MyTable As Range
    Set MyTable = Worksheets("doublerecherche").Range("table")
 
    ' Activation de la feuille de calcul "doublerecherche"
    Worksheets("doublerecherche").Activate
 
    Worksheets("doublerecherche").Range("test") = Application.WorksheetFunction.Index(MyTable, _
            WorksheetFunction.Match(Worksheets("doublerecherche").Range("A3"), Worksheets("doublerecherche").Range("ListeMois"), 0), _
            WorksheetFunction.Match(Worksheets("doublerecherche").Range("A2"), Worksheets("doublerecherche").Range("ListeProduit"), 0))
End Sub
Je cherche depuis des heures où se trouve mon ou mes erreurs....
Merci d'avance pour votre aide
Très bonne soirée !