XL 2016 Amélioration du temps d'exécution d'une recherche à plusieurs critères

asta29

XLDnaute Nouveau
Bonjour à tous,

Je tente en vain de réussir en VBA le résultat indiqué ci-dessous:

Avec cette formule en B2 de la feuil2 je parviens au résultat attendu,: {=INDEX(Feuil1!C2:C6;EQUIV(A2&"ok";Feuil1!A2:A6&Feuil1!B2:B6;0))}
Cependant ce fichier contient environ 4000 lignes et la répétition des formules ralentissent énormément le calcul.

Feuil2: Feuil 1:
1.png
2.png


Je cherche à optimiser ces calculs en VBA mais je n'y parviens pas.

Merci d'avance pour votre aide.
Ci-joint un fichier d'exemple.

Asta29
 

Pièces jointes

  • Classeur1.xlsx
    64 KB · Affichages: 17

JHA

XLDnaute Barbatruc
Bonjour à tous,

Pourquoi ne pas faire un filtre et choisir les "OK"
puis sélection du filtre et copier sur une autre feuille puis supprimer la colonne "B"

JHA
 

Pièces jointes

  • Classeur1 (6).xlsx
    63.8 KB · Affichages: 2

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Voilà qui est fait par power query dans le fichier joint.

[Edition] J'ai rechargé le fichier qui contient maintenant 2 façons de faire par powerquery :

1- par ajout de colonnes
2- par pivotage d'une colonne.

Cordialement
 

Pièces jointes

  • asta29.xlsm
    76.2 KB · Affichages: 11
Dernière édition:

asta29

XLDnaute Nouveau
Bonjour,

Après adaptation de la requête Power Query, je viens de me rendre compte qu'il peut y avoir des doublons en colonne A
4.png


J'essaye en vain de regrouper ou de supprimer les doublons, de la colonne A, de fusionner les colonnes...mais je perds une partie des données...

Merci pour votre aide.
Asta29
 

Pièces jointes

  • asta29 (4).xlsm
    21.3 KB · Affichages: 2

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib