Microsoft 365 Compiler des données de plusieurs feuilles Excel

[FLAM04]

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]

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]

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 ...

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]

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]

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]

Re,

, 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]

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]

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]

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]

Pages supprimées