XL 2010 Recherche index match avec 2 critères

[lolobala]

Bonjour à tous,

Après avoir lu plusieurs forums et effectué plusieurs tests divers, je m'en remets à vos connaissances.
Le code vba que je tente de faire doit retrouver dans le fichier Nouvelle_gamme, le numéro d'opération contenu dans la colonne I en fonction du code cherchée en colonne D et en colonne J.

J'ai donc essayé de passer par la formule Index equiv suivante :
=INDEX('C:\Users\balaguer\Downloads\[Nouvelle_Gamme.xlsx]Nouveau Cas emploi'!$A$4:$O$11834;EQUIV(1;('C:\Users\balaguer\Downloads\[Nouvelle_Gamme.xlsx]Nouveau Cas emploi'!$D$4:$D$11834=C2)*('C:\Users\balaguer\Downloads\[Nouvelle_Gamme.xlsx]Nouveau Cas emploi'!$J$4:$J$11834=L2);0);9)

La formule fonctionne dans excel, j'ai essayé de la retranscrire en VBA et en rendant le code "dynamique" (Le chemin peut changer, ainsi que le nom de l'onglet etc ...)
Mais lorsque je tente de lire le programme j'ai le message Erreur '1004' Impossible de lire la propriété Index de la classe WorksheetFunction

Auriez-vous une solution à mon problème ?
D'avance merci pour votre aide,

Cordialement
Laurent

 

[lolobala]

Bonjour lolobala,

Chez moi sur Win 11 Excel 2019 la macro fonctionne très bien avec vos nouveaux fichiers.

A+

Elle fonctionne aussi chez moi mais pas avec 160 000 lignes...

Laurent

 

[job75]

Mettez votre fichier de 160 000 lignes sur cjoint.com

 

[lolobala]

Je ne connaissais pas ce site. J'espère avoir fait correctement et que cela fonctionnera

https://www.cjoint.com/doc/22_11/LKcjJD2E7BU_test-nouvelle-BOM.xlsm

 

[job75]

J'ai téléchargé le fichier et testé, il n'y a aucun bug chez moi.

 

[job75]

Peut-être que sur Excel 2010 c'est Application.Index qui pose problème, alors remplacez :

    .Columns(15).Clear 'RAZ
    .Columns(15) = Application.Index(tablo, , 15) 'restitution

par :

    .Value = tablo 'restitution

La restitution prend un peu plus de temps.

 

[lolobala]

Peut-être que sur Excel 2010 c'est Application.Index qui pose problème, alors remplacez :

    .Columns(15).Clear 'RAZ
    .Columns(15) = Application.Index(tablo, , 15) 'restitution

par :

    .Value = tablo 'restitution

La restitution prend un peu plus de temps.

ça fonctionne !
C'est tout de même curieux que la macro fonctionne pour quelques lignes seulement....

Enfin le principal c'est que vous ayez résolu mon problème.
Merci beaucoup pour votre patience

Bonne journée
Laurent