Microsoft 365 Compiler des données de plusieurs feuilles Excel

FLAM04 · 4 Janvier 2023

Bonsoir

je souhaiterais compiler des donner de plusieurs feuilles excel. Il s'agit d'extraction de stock de boutique. le logiciel est incapable de générer une seule feuille et en créé donc jusqu'à 40 pour chaque boutique.
la première feuille a un format différent des suivant, mais de la feuille 2 jusqu'à X, les formats restes identiques. max de 58 lignes par feuilles et les en têtes reste bien évidemment identiques.

je mets en pièce jointe un exemple.

Merci pour votre aide!

Hasco · 4 Janvier 2023

bonjour,

Power query peut très bien s'occuper de ça.
Je n'ai pas le temps aujourd'hui mais vous pouvez voir ce fil d'hier sur le sujet :

Microsoft 365 - Réaliser une compilation de plusieurs onglets similaires dans l'onglet "synthese"

Bonjour le Forum, Tout d'abord une bonne année 2023 à tous. Je ne sais pas si vous pourrez m'aider, mais je cherche à compiler dans l'onglet "Synthese" toutes les données issues des autres feuilles contenants des données ( ex: feuille A, feuille B etc...). Je ne sais pas si cela est...

excel-downloads.com

La seule différence avec vous c'est la page 1
Il faudra nous dire quelles informations de cette page vous voulez conserver.
Vous avez excel 365 Pourquoi vous servir d'un format (.xls) obsolète depuis 15 ans au moins ?

fanch55 · 4 Janvier 2023

Bonjour et bonne année à tous,
La page 2 est également différente de toutes les autres dans les colonnes .
Sinon vous pouvez adapter le code ci-dessous ...

VB:

Option Compare Text
Sub Fusion()
Dim Sh As Worksheet
Dim L As Long, M As Long
    For Each Sh In Worksheets
        Select Case True
        Case Sh.Name = "page1" ' on ne traite pas la page1 en supposant que c'est la cible
        Case Not Sh.Name Like "page*" ' seules les pages au format page2 à pageN sont traitées
        Case Else
            ' L= dernière ligne de "Page1"
            L = Worksheets("Page1").Cells(Worksheets("Page1").Rows.Count, "C").End(xlUp).Row
            If L > 5 Then
                ' M= dernière ligne "significative" de la page à copier
                M = Sh.Cells(Sh.Rows.Count, "B").End(xlUp).Row
                If M > 2 Then
                    ' copie de la colonne B
                    Sh.Range("B3:B" & M).Copy Worksheets("Page1").Range("C" & L)
                    ' copie des colonnes C à O vers les colonnes E et suivantes
                    Sh.Range("C3:O" & M).Copy Worksheets("Page1").Range("E" & L)
                End If
            End If
        End Select
    Next
End Sub

Hasco · 5 Janvier 2023

Bonjour,

Je vais attendre de voir ce que dit @FLAM04 sur les différences de structures entre la page2 et les autres avant de me lancer dans quoique ce soit qui sera à recommencer.

FLAM04 · 5 Janvier 2023

bonjour

Merci Pour vos réponses. Hasco, seule la feuille 1 est différentes des autres. L'idéal serait de conserver la première feuille et d'y ajouter les donner se trouvant sur les feuilles suivantes. nous conserverions ainsi les données d'en-tête des boutiques.

merci

Hasco · 5 Janvier 2023

Re,

FLAM04 à dit:
, seule la feuille 1 est différentes des autres.

Non et je ne suis pas le seul à le voir puisque @fanch55 l'a vu aussi.
Sur la feuille 'Page2' :
Entête 'Mini' -> colonne I données -> colonne H
Entête 'PU' -> colonne k données -> colonne J

FLAM04 · 6 Janvier 2023

Hasco à dit:
Re,

Non et je ne suis pas le seul à le voir puisque @fanch55 l'a vu aussi.
Sur la feuille 'Page2' :
Entête 'Mini' -> colonne I données -> colonne H
Entête 'PU' -> colonne k données -> colonne j

Bonsoir

Je pense qu'il s'agit d'une erreur de ma part en supprimant certaines données. hormis la première feuille toutes les autres sont identiques. j'ai repris le fichier originale et cette fois tout correspond.

fichier en pièce jointe

fanch55 · 6 Janvier 2023

Exécutez la macro Fusion dans le classeur joint.
Vous n'avez pas pas dit ce que qu'on doit faire des Pages 2 à n, une fois celles-ci copiées en Page1 .

FLAM04 · 9 Janvier 2023

fanch55 à dit:
Exécutez la macro Fusion dans le classeur joint.
Vous n'avez pas pas dit ce que qu'on doit faire des Pages 2 à n, une fois celles-ci copiées en Page1 .

Bonjour

Merci pour votre réponse, ces pages peuvent être supprimées car elles sont inutiles une fois compilées

fanch55 · 9 Janvier 2023

Pages supprimées

Microsoft 365 Compiler des données de plusieurs feuilles Excel

FLAM04

XLDnaute Nouveau

Pièces jointes

Hasco

XLDnaute Barbatruc

Microsoft 365 - Réaliser une compilation de plusieurs onglets similaires dans l'onglet "synthese"

fanch55

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

FLAM04

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

FLAM04

XLDnaute Nouveau

Pièces jointes

fanch55

XLDnaute Barbatruc

Pièces jointes

FLAM04

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Pièces jointes

Discussions similaires