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

[asta29]

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:

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

 

[JHA]

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

 

[Hasco]

Bonjour,

Dans le fichier joint vous verrez 2 solutions :
1 - par power query (requête)
2 - par filtrage avancé (macro)


Hello JHA 🙂
Cordialement

 

[asta29]

Merci de votre aide JHA et Roblochon,
Il faut que je garde toutes les lignes même si cela me renvoit des #N/A ou une valeur vide..
Du coup le filtrage ne va pas.

 

[Hasco]

Re,

Alors je ne comprends pas le but de votre critère ok, il suffit de faire une copie des deux colonnes voulue !!!

cordialement

 

[asta29]

Re,

Alors je ne comprends pas le but de votre critère ok, il suffit de faire une copie des deux colonnes voulue !!!

cordialement

En faite, je dois aussi le faire pour les autres critères

 

[Hasco]

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

 

[asta29]

Bonjour,

Merci pour votre retour, le calcul est beaucoup plus rapide avec votre requête.

Encore merci 😉

 

[BOISGONTIER]

Bonjour,

Avec une fonction perso.
Doit être instantané

=Rechv2Crit(A2:A6; Feuil1!A2:A6; Feuil1!B2:B6; Feuil1!C2:C6; "x")

Boisgontier

 

[asta29]

Bonjour,

Avec une fonction perso.
Doit être instantané

=Rechv2Crit(A2:A6; Feuil1!A2:A6; Feuil1!B2:B6; Feuil1!C2:C6; "x")

Boisgontier

Bonjour Boisgontier,
Merci pour ton retour, je retiens ta fonction.
J'ai énormément de ligne et de colonne avec power Query la requête est plus adaptée.

Encore merci😉

 

[asta29]

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

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

 

[Hasco]

Bonjour,

voilà qui est fait dans le fichier joint.

Quand vous êtes coincé, n'hésitez pas à consulter la doc sur les fonctions du langage M :
https://docs.microsoft.com/en-us/powerquery-m/


cordialement

 

[Hasco]

Re,

Mais c'est plus direct par pivotage qu'ajouter des colonnes manuellement après regroupement (voir fichier joint)

Cordialement

 

[asta29]

Re Roblochon,

Merci beaucoup pour la requête ainsi que le lien d'aide.

😉
Bonne journée

 

[Hasco]

Re,

vous avez vu mon second post (#13) avec sa nouvelle pièce jointe et le pivotage de colonne ?

cordialement