Discussion :

[momoju]

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 !

[Franc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[momoju]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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