Déplacer automatiquement des lignes
Bonjour à toutes et à tous,
Je suis à la recherche d'une fonction me permettant de déplacer automatiquement des lignes de plusieurs onglets vers un autre onglet unique (Synthèse) afin de les rassembler.
Des collaborateurs à moi renseignent leurs données dans des onglets qui leurs sont assignés, mais je souhaite disposer d'une synthèse de toutes leurs informations me permettant de générer des tableaux rapidement.
Dans l'exemple ci-joint, j'ai 5 onglets avec peu de lignes pour chacun d'entre-eux (mais en réalité, le nombre de ligne peut être beaucoup plus important), ainsi qu'un 6eme onglet "Synthèse" qui devrait être la destination de tout le contenu.
Comment puis-je faire pour que les nouvelles lignes créées dans chacun des onglets soit dupliquées et stockées dans l'onglet "Synthèse"? L'ordre n'a pas d'importance dans la mesure où je pourrais faire un tri ou créer un TCD.
Je suis un débutant en VBA. J'ai bien essayé de m'auto-former avec les topics de ce forums ainsi qu'avec des vidéos, mais hormis de la peine et de la déception, je n'ai pas bcp avancer et je n'arrive pas à trouver une solution qui correspondent pleinement (ou se rapproche) de mon besoin.
Y'aurait-il une bonne âme pour un coup de main ? :)
D'avance merci!
Z
Bonjour,
Ou sinon, en utilisant Power Query?
Add-on en natif dans ta version d'Excel.
Regarde le fichier joint -
- Dans la cellule A1 de l'onglet "Synthese", il y a une formule qui te donne le chemin et le nom du fichier (vérifie que cette cellule te donne les bonnes données)
- Dès que tu actives cet onglet, une mise à jour automatique est effectuée
- J'ai préservé le nom de l'onglet "origine" en colonne A, mais on peut l'enlever
Bonne découverte de cet outil très puissant, et bon appétit
Merci pour ta réponse rapide !
Je suis bien embêté parce que tu arrives à faire exactement ce que je souhaite mais je ne comprends pas bien ta méthode.
Je ne connais pas Power Query, et je peine à reproduire ce que tu me proposes.
La cellule A1 affiche cette formule : =SUBSTITUE(GAUCHE(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))-1);"[";"")
J'essaie de faire ceci :
Obtenir des données > à partir d'un classeur > je sélectionne mes différents onglets
Je les charge mais rien ne se produit ; les différents onglets sont indiqués comme "chargés". Je n'arrive pas à les fusionner et à les afficher :(
Par ailleurs, si j'essaie de rajouter une ligne dans l'un des onglets et que je vais sur Synthèse, cette nouvelle ligne n'apparait pas malgré une Actualisation (dans l'onglet Données). Comment mettre à jour les informations ?
Désolé mon mon inexpérience :/
Z
Re-,
Les différentes étapes sont indiquées à droite en bas lorsque tu ouvres l'éditeur Power Query (Clic droit dans la requête, "Table/Modifier la requête...")
Dans "Source", tu as ceci :
Vérifie donc bien si la cellule A1 est nommée "NomFich" (par le gestionnaire de noms, dans le ruban "Formules")
La 2ème étape consiste à ne préserver que les Table commençant par "AT", puis à la 3ème, on clique sur la double flèche à côté de "Data", 2ème colonne
4ème étape, on promeut la 1ère ligne comme "En-tête"
5ème étape, on filtre pour enlever les titres des autres Tables
Et enfin, à la 6ème, j'ai renommé la 1ère colonne
Si tu n'y arrives toujours pas, reviens :)