Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 comparaison deux listes (180000 enregistrements)

kingfadhel

XLDnaute Impliqué
Bonjours les XLDs,
Je viens vers vous pour essayer de trouver une solution à mon problème.
j'ai une liste de cartes numérotées (180000) et affectées à différents collaborateurs, et une deuxième liste qui contient les cartes vendues (presque 85000 cartes dont quelques unes hors affectations==> inconnues), je vise à extraire les cartes non vendues pour chaque collaborateurs et les cartes supposées être réstituer.
le fichier ci-joint présente mieux les listes et le résultat souhaité.
 

Pièces jointes

  • kingfadhel.xlsx
    11.2 KB · Affichages: 19
Trier par date Trier par votes

Cousinhub

XLDnaute Barbatruc
Bonjour,
Comme le fichier fait plus d'un méga, voici sur le site cjoint (j'ai choisi illimité)

PQ-Ventes.zip

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.
www.cjoint.com
le code utilisé :
PowerQuery: 
let
    Source = Table.NestedJoin(T_Base, {"Num_Cartes"}, T_Vente, {"Num_Cartes"}, "T_Vente", JoinKind.FullOuter),
    #"T_Vente développé" = Table.ExpandTableColumn(Source, "T_Vente", {"Num_Cartes", "Collaborateur"}, {"T_Vente.Num_Cartes", "T_Vente.Collaborateur"}),
    #"Personnalisée ajoutée" = Table.AddColumn(#"T_Vente développé", "Etat", each if [Num_Cartes]=[T_Vente.Num_Cartes] and [Collaborateur]=[T_Vente.Collaborateur] then"V_" & [T_Vente.Collaborateur] else if [Num_Cartes]=null then "EX_" & [T_Vente.Collaborateur] else "NV_" & [Collaborateur]),
    #"Valeur remplacée" = Table.ReplaceValue(#"Personnalisée ajoutée",each [Num_Cartes],each if[Num_Cartes]=null then Number.From([T_Vente.Num_Cartes]) else Number.From([Num_Cartes]),Replacer.ReplaceValue,{"Num_Cartes"}),
    #"Autres colonnes supprimées" = Table.SelectColumns(#"Valeur remplacée",{"Num_Cartes", "Collaborateur", "Etat"}),
    #"Lignes triées" = Table.Sort(#"Autres colonnes supprimées",{{"Num_Cartes", Order.Ascending}})
in
    #"Lignes triées"
Pour afficher la requête, dans l'onglet "Feuil2", clic droit dans la cellule A2 (par exemple), puis "Actualiser" ou dans le ruban "Données", cliquer sur "Actualiser tout"
La 1ère requête (donc sans connexion pré-établie) s'est déroulée en moins de 25 secondes, et ensuite, une dizaine de secondes
Bonne découverte de PQ (si tu as bien téléchargé l'Add-on gratuit sur le site de µSoft)
 
Dernière édition:
Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro
Bonjour @danreb,

Je peux comprendre que l'on aime les techniques "anciennes"... Mais Microsoft a ajouté des capacité incroyables a Excel.

Figloler aujourd'hui un code pour importer/ trier/ assembler des données en VBA... C'est empmloyer une technique dépassée.

J'aime le cheval, les arnachements sont superbes... mais pour me deplacer j'emploie la voiture et le train ...
 
Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc
Moi aussi j'ajoute des capacités incroyables à Excel avec des modules de service utilisables dans n'importe quel classeur, ce n'est pas l'apanage de Microsoft, plutôt toujours très en retard sur ce qui aurait dû exister depuis des dizaines d'années, avare de parcimonieux replâtrages de lacunes à grand renfort de d'annonces fracassantes de prétendues nouveautés … Mes avancées au moins sont gratuites !
 
Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro
Bonjour @dysorthographie ,

Je n'ai effectivement pas donné de solution PQ... @Cousinhub l'avait déjà fait avant que je n'ai eu le temps. (je ne suis pas visé a mon Excel)
J'ai été un des premiers ici a proposer des solutions PQ...

Pour traiter les tables je suis passé à PQ vers 2016... c'était juste trop puissant. Avant cela VBA...

Je me suis deja pris des vannes de certains mais comment comparer la facilité de PQ avec les codes VBA?

Code: 
Est il un utilisateur ? Peut être !

Je crois avoir publié assez de code M .... la question est de savoir si on veut en employer.
Très souvant je remarque que je crée du code pour rien...
Donc la premiere question est de savoir si l'utilisateur le veut.
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Bonjour le fil,

[aparté]
Ah, ca fait du bien de lire des posts qui ne sont pas d'abord été lus par des sensitivity readers
XLD n'est pas encore muselé par le woke et cie

Pour ma part, j'aime bien le PQ. J'en utilise tous les jours
Le VBA, , c'est pour le plaisir et la nostalgie (mes premiers émois macrotiques avec Excel 97)


Mais je croyais que nous devions être bienveillant entre XLDnautes
Merdre! je suis contaminé
[/aparté]

Apparemment, le demandeur a choisi le VBA

Moi, j'ai mis le PQ de @Cousinhub dans ma besace
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

J
  • Question Question
Aide pour comparer deux listes et remplir un tableau en conséquence
Réponses
5
Affichages
2 K
Jorgio
J
S
  • Question Question
XL 2013 Comparer deux listes et afficher les manquants
Réponses
7
Affichages
3 K
Sebast
S
B
  • Question Question
Comparaison de deux fichiers (listes) et inscriptions...dans un 3e
Réponses
0
Affichages
1 K
Barberousse113
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…