Problème fonction INDEX MATCH

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:

---

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 !

Salut,
Je n'ai pas Excel365 donc je suis pas sûr mais il me semble que la propriété MATCH n'existe pas pour WorksheetFunction mais bien pour l'application Excel, essaie donc:

Code:

---

1 2 3

Worksheets("doublerecherche").Range("test") = Application.WorksheetFunction.Index(MyTable, _ Application.Match(Worksheets("doublerecherche").Range("A3"), Worksheets("doublerecherche").Range("ListeMois"), 0), _ Application.Match(Worksheets("doublerecherche").Range("A2"), Worksheets("doublerecherche").Range("ListeProduit"), 0))

---

J'ai essayé ma solution mais elle ne fonctionne pas, j'ai la même erreur mais pour INDEX.
Tu pourrais peut-être envoyer un exemple de ton tableau que je teste dans les mêmes conditions que toi ?

Bonjour,
Avec les plages nommées Data (vert), Produit (jaune) et Trimestre (bleu)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub t() Dim fx As WorksheetFunction Dim CA As Double Set fx = Application.WorksheetFunction With fx CA = .Index(Range("Data"), _ .Match("Produit 1", Range("Produit"), 0), _ .Match("Trim 3", Range("Trimestre"), 0)) MsgBox CA End With Set fx = Nothing End Sub

---

Illustration
Pièce jointe 637158

Bonjour Franc et Philippe,

D'abord un grand merci à vous deux :)


Désolée pour cette réponse tardive, la journée de mardi fut très remplie.

Les deux propositions fonctionnent bien.

J’ai monté un classeur qui ressemble à mon application pro que je ne peux pas partager, trop de données confidentielles.

J’ai modifié le code comme indiqué par Franc et cela fonctionne bien (fichier joint feuille Recherche_feuille cellule B9 je récupère bien le CA réalisé.

Je souhaite faire les mêmes recherches mais sur feuille différente et que la fonction index(equiv(equiv( soit recopiée jusqu’à la dernière ligne.
J'ai fait un test :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub jeTeste2() Dim Myrange As Range Set Myrange = Range("ListeRef") Dim MyRange2 As Range Set MyRange2 = Range("ListeMagasin") Dim MyTable As Range Set MyTable = Worksheets("doublerecherche").Range("STOCK")     ' Activation de la feuille de calcul "doublerecherche" 'Worksheets("doublerecherche").Activate   Worksheets("doublerecherche").Range("MAG_1") = Application.WorksheetFunction.Index(MyTable, _ Application.Match(Worksheets("Recherche_feuille").Range("test2"), Worksheets("doublerecherche").Range("ListeRef"), 0), _ Application.Match(Worksheets("Recherche_feuille").Range("$b$11"), Worksheets("doublerecherche").Range("ListeMagasin"), 0))   End Sub

---

Message d'erreur : Erreur d'exécution 13 Incompatibilité de type


Mes feuilles comportent pour l’instant + de 35000 lignes et 500 colonnes avec de nombreuses fonctions recherchev et index equiv. Le ficher est très lourd et à chaque modification de données le recalcul dure plusieurs minutes… J’ai pensé que si je remplaçais les formules par VBA cela allègerait mon fichier…

Un grand merci pour votre aide et bonne journée