XL 2016 Fusionner 2 tableaux sans connaître le nombre de ligne des 2 tableaux

ChTi160

XLDnaute Barbatruc

• 18 Octobre 2022

• #2

Bonjour Bodegafr
Te serait-il possible de mettre un fichier (anonymisé) ?
Avec exemple de ce que tu veux par rapport à ce que tu as !
Jean marie

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Octobre 2022

• #3

Bonjour Bodegafr,
N'auriez vous pa un petit fichier test?
Cela éviterait de se le taper, et évidemment d'être différent du votre, donc une réponse non adéquate.
D'autre part acceptez vous le VBA ?

 

Vote positif 0 Vote négatif

B

Bodegafr

XLDnaute Nouveau

• 18 Octobre 2022

• #4

Voici un exemple où je fais un copier coller des 2 premiers onglets dans la 3e avant de faire un tri. Concernant le VBA, pas de soucis.

 

Pièces jointes

• INSCRIPTION(1).xlsx

  10.3 KB · Affichages: 15

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 18 Octobre 2022

• #5

Bonjour,
En utilisant Power Query (jonction des 2 tableaux)
Chaque onglet comporte un Tableau Structuré.
Lors de l'activation de l'onglet "Accès site", un code évènementiel actualise la requête.
Bonne journée
Edit, j'avais oublié le tri - Fichier changé

 

Pièces jointes

• PQ_INSCRIPTION.xlsm

  27.1 KB · Affichages: 10

Vote positif 0 Vote négatif

B

Bodegafr

XLDnaute Nouveau

• 18 Octobre 2022

• #6

bhbh à dit:

Bonjour,
En utilisant Power Query (jonction des 2 tableaux)
Chaque onglet comporte un Tableau Structuré.
Lors de l'activation de l'onglet "Accès site", un code évènementiel actualise la requête.
Bonne journée
Edit, j'avais oublié le tri - Fichier changé

Cliquez pour agrandir...

Merci ! C'est parfait, le résultat dans le fichier me convient parfaitement. Il faut juste que je comprenne ce que vous avez fait (Power Query..) pour le reproduire dans mon fichier.
Déclarer les 3 tableaux (Tableau1, Tableau 2, Tableau2_2) c'est bon mais après ?
Merci !

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 18 Octobre 2022

• #7

Re-,
J'ai tout d'abord créé une connexion sur le 1er tableau (Ruban Données/A partir de Tableau ou d'une plage), rien modifié dans ton cas, et "Fermer et Charger"/Créer la connexion uniquement.
Puis dans le 2ème onglet, de nouveau Données/A partir...., et dans l'éditeur PQ, Accueil/Ajouter des requêtes, j'ai sélectionné la première connexion.
Faire le tri
Fermer et Charger dans un Tableau
Renommer cet onglet, et rajouter le code kivabien
Bon courage
Pour voir ces étapes, une fois une cellule du PQ sélectionnée, aller dans le Ruban "Requête", Modifier

 

Vote positif 0 Vote négatif

B

Bodegafr

XLDnaute Nouveau

• 18 Octobre 2022

• #8

Ok, je vais essayer de le reproduire, merci.
Je viens de trouver ça sur le forum, je vais le lire d'abord : https://excel-downloads.com/threads...aux-provenant-de-differents-onglets.20070953/

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 18 Octobre 2022

• #9

Re-,
Oui effectivement, bien d'autres solutions (bien plus avantageuses que mon bric-à-brac d'amateur).
En plus, j'avais déjà lu ce fil...
Bon courage dans l'apprentissage de PQ

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 18 Octobre 2022

• #10

Bonjour à tous,

Une méthode avec VBA. Le tableau se met à jour quand on sélectionne la feuille "Accès site".
Le code est dans le module associé à la feuille "Accès site":

VB:

Private Sub Worksheet_Activate()
Dim tRes As ListObject, i&
   Application.ScreenUpdating = False
   Set tRes = Sheets("Accès site").Range("a1").ListObject
   With tRes
      .AutoFilter.ShowAllData
      For i = tRes.ListRows.Count To 1 Step -1: tRes.ListRows(i).Delete: Next
      Sheets("stagiaires").Range("a1").ListObject.DataBodyRange.Copy .Range(.ListRows.Count + 2, 1)
      Sheets("Moniteurs").Range("a1").ListObject.DataBodyRange.Copy .Range(.ListRows.Count + 2, 1)
      .Range.Sort key1:=.HeaderRowRange(1, 1), order1:=xlAscending, MatchCase:=False, Header:=xlYes
      For i = .ListRows.Count To 1 Step -1
         If .ListRows(i).Range(1, 1) = "" Then .ListRows(i).Delete Else Exit For
      Next i
   End With
End Sub

nota: j'ai le bouquin pour apprendre PQ depuis de nombreux mois. Il va falloir que je m'y mette

 

Pièces jointes

• Bodegafr- 2 en 1 vba- v1a.xlsm

  29.5 KB · Affichages: 10

Dernière édition: 18 Octobre 2022

Vote positif 0 Vote négatif

B

Bodegafr

XLDnaute Nouveau

• 19 Octobre 2022

• #11

J'ai appliqué ce matin la solution avec Power Query, très pratique ! J'ai même pu intégrer le tableau dans une feuille avec d'autres éléments, merci pour cette solution !
J'ai essayé de reproduire la solution avec le code VBA dans l'onglet, je me suis heurté à une erreur sur "Set tRes = Sheets("Accès site").Range("a1").ListObject", je n'ai pas compris le pourquoi, l'onglet à le bon nom. Pas grave, la solution Power Query très facile à mettre en place.

Pour ceux qui utilisent Power Query, j'ai trouvé sur internet une solution pour actualiser les requêtes lors de l'ouverture du classeur mais connaissez-vous une solution pour actualiser la requête quand on clique sur l'onglet ? Peut-être un code VBA à mettre dans l'onglet ?

Merci pour votre aide à tous, c'est très sympa de prendre du temps pour répondre aux interrogations qu'on se pose !

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 19 Octobre 2022

• #12

Bonjour,
Regarde bien ma réponse....

bhbh à dit:

Lors de l'activation de l'onglet "Accès site", un code évènementiel actualise la requête.

Cliquez pour agrandir...

Bonne journée

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Octobre 2022

• #13

Bodegafr à dit:

J'ai essayé de reproduire la solution avec le code VBA dans l'onglet, je me suis heurté à une erreur sur "Set tRes = Sheets("Accès site").Range("a1").ListObject", je n'ai pas compris le pourquoi, l'onglet à le bon nom. Pas grave, la solution Power Query très facile à mettre en place.

Cliquez pour agrandir...

Le tableau structuré inclut-il la cellule A1 de la feuille "Accès site" ?

Je serais intéressé de voir ton classeur pour comprendre...

 

Vote positif 0 Vote négatif