XL 2016 Croiser 2 tableaux

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 25 Juillet 2019

• #2

Bonsoir,

Il faudrait le fichier

Exemples:
http://boisgontierjacques.free.fr/fichiers/Cellules/ConsolideDico.xls

http://boisgontierjacques.free.fr/fichiers/Cellules/ConsolideTbl2D.xls

http://boisgontierjacques.free.fr/fichiers/Divers/Dictionary.xls

Boisgontier

 

Dernière édition: 25 Juillet 2019

Vote positif 0 Vote négatif

HelloDy

XLDnaute Junior

• 25 Juillet 2019

• #3

Bonsoir @BOISGONTIER,

Oui j'y ai pensé mais ils contiennent des infos confidentielles, et supprimer ces infos enlèverait tout intérêt de les joindre ^^
Merci pour les liens, je vais y jeter un oeil

Bonne soirée.

Edit : je viens de regarder les 2 exemples mais ça ne correspond pas à ce que je cherche malheureusement. Je cherche à extraire les lignes identiques dans 2 tableaux, pas à "assembler" 2 tableaux. Merci quand même pour ces exemples qui pourront me servir une prochaine fois

Elo

 

Dernière édition: 25 Juillet 2019

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 25 Juillet 2019

• #4

Bonjour

Faisable facilement par une requête PowerQuery, intégré à ta version pour traiter les communs. Il faut définir les points communs.

On peut aussi faire le delta pour chaque tableau : le résultat de la requête sera à déconnecté de la source qui pourra être supprimée.

 

Vote positif 0 Vote négatif

HelloDy

XLDnaute Junior

• 25 Juillet 2019

• #5

Bonjour @chris,

Ca a l'air super dit comme ça ^^
Sauf que je n'ai aucune idée de comment m'y prendre...
Merci quand même pour ta réponse


Elo

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 25 Juillet 2019

• #6

RE

Il faudrait un fichier, bidon mais représentatif sinon je ne vois pas comment donner plus de précisions

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Accro

• 25 Juillet 2019

• #7

Bonsoir Chris;
J'aimerais bien essayer un Power Query, Vous avez un exemple pour comprendre le fonctionnement s'il vous plaît Chris

Ps : Hello Dy (ce n'est pas très compliqué à mettre en oeuvre, il faut juste écrire le petit bout d’algorithmes, aussi j'aurais bien aimé apprendre avec PowerQuery aussi.
Lien : https://support.office.com/fr-fr/ar...er-query-7104fbee-9e62-4cb9-a02e-5bfb1a6c536a

J'ai compris le principe, Merci Chris pour cette info que je ne connaissais pas.

Laurent

 

Dernière édition: 25 Juillet 2019

Vote positif 0 Vote négatif

HelloDy

XLDnaute Junior

• 25 Juillet 2019

• #8

Re @chris, coucou @laurent950

Voilà ci-joint mes 2 fichiers débarrassés des infos confidentielles, si ça peut aider


Elo

 

Pièces jointes

• COMMANDE CLIENT A PARTIR DE AVRIL.XLS

  55.5 KB · Affichages: 7
• Réservations client.xls

  55.5 KB · Affichages: 7

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 25 Juillet 2019

• #9

RE

Et on compare quelles colonnes ?

 

Vote positif 0 Vote négatif

HelloDy

XLDnaute Junior

• 25 Juillet 2019

• #10

Ben en fait j'ai besoin de faire ressortir toutes les lignes identiques. Donc toutes les colonnes si possible

 

Vote positif 0 Vote négatif

HelloDy

XLDnaute Junior

• 25 Juillet 2019

• #11

Par contre je sais pas si c'était explicite mais j'aurais besoin d'une méthode pour obtenir un résultat, pas d'un résultat tout prêt

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 25 Juillet 2019

• #12

VB:

Sub Communs()
  a = Sheets(1).Range("B2:B" & Sheets(1).[B65000].End(xlUp).Row)
  Set MonDico1 = CreateObject("Scripting.Dictionary")
  For i = 1 To UBound(a)
   MonDico1(a(i, 1)) = i
  Next i
  b = Sheets(2).Range("B2:B" & Sheets(2).[B65000].End(xlUp).Row)
  Tbl2 = Sheets(2).Range("A2:G" & Sheets(2).[B65000].End(xlUp).Row)
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For i = 1 To UBound(b)
    If MonDico1.exists(b(i, 1)) Then If Not mondico2.exists(b(i, 1)) Then mondico2(b(i, 1)) = i
  Next i
  ReDim Tbl3(1 To mondico2.Count, 1 To UBound(Tbl2, 2))
  j = 0
  For Each k In mondico2.keys
    j = j + 1: ligne = mondico2(k)
    For i = 1 To UBound(Tbl2, 2)
      Tbl3(j, i) = Tbl2(ligne, i)
    Next i
  Next k
  Sheets(3).[A2].Resize(UBound(Tbl3), UBound(Tbl3, 2)) = Tbl3
End Sub

Boisgontier

 

Pièces jointes

• Communs2BD.XLS

  116 KB · Affichages: 6

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 25 Juillet 2019

• #13

Re
Il faut charger chacun des tableau dans PowerQuery
Puis faire une requête de fusion en faisant correspondre chacune des colonnes en jointure interne
Seules restent les lignes correspondantes


Pour les autres lignes (non concordance) refaire de même, une fois par table (Fich1 en premier, puis Fich2 en premier) mais en jointure externe gauche.
On déplie un champ de la table liée et on filtre les null

 

Dernière édition: 25 Juillet 2019

Vote positif 0 Vote négatif

HelloDy

XLDnaute Junior

• 25 Juillet 2019

• #14

Merci @chris pour tout ça.
Je n'ai aucune idée de comment charger un tableau dans PowerQuery mais je verrai bien demain si je m'en sors

Merci encore et bonne soirée !


Elo

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 25 Juillet 2019

• #15

Re

Si tu pars d'un fichier vierge, Données, Obtenir des données, A partir d'un fichier, A partir d'un classeur.

Cela va ouvrir l'interface PowerQuery, tu auras à choisir l'onglet et le contenu s'affichera.

Pour le second tu peux la faire depuis l'interface PowerQuery : Accueil, Nouvelle source, Fichier, Excel

Tes fichiers ne sont pas clean donc sur chaque il faut filtrer le N° de commande pour éliminer null avant de les croiser

 

Dernière édition: 26 Juillet 2019

Vote positif 0 Vote négatif