Consolider des pages d'un classeur sur une seule page

[buzzzer]

Bonjour,

j'ai 62 pages que je voudrais consolider sur une seul page pour faire un tri.
j'ai essayer de le faire avec consolider mais j'y arrive pas.

j'ai joint le fichier si quelqu'un peut me le remettre dans la derniere page intitulé conso ca serait mieux pour avoir une nuit pas trop courte!!!

 

[Staple1600]

Re : Consolider des pages d'un classeur sur une seule page

Bonsoir

As-tu été voir en bas de cette page?
La ou il y a cinq liens qui pointent vers des Discussions Similaires à ta question.

PS: Normalement ici, on aide le demandeur à faire, on ne fait pas à la place du demandeur 😉

EDITION: Bonsoir JCGL 😉

 

[JCGL]

Re : Consolider des pages d'un classeur sur une seule page

Bonjour à tous,
Salut l'Agrafe,

Le fichier, décompressé, ne semble pas être un fichier Excel.

A + à tous

 

[Staple1600]

Re : Consolider des pages d'un classeur sur une seule page

Re


Exact. Cela ressemble à *.zip

Mais même en le renommant en *.zip et en l'extrayant , on reste coincé.

 

[buzzzer]

Re : Consolider des pages d'un classeur sur une seule page

Bonjour,

je regardde mon fichier ZIP pourtant la base et excel............

A+

 

[buzzzer]

Re : Consolider des pages d'un classeur sur une seule page

Re

j'ai repris mon fichier zip quand je l'ouvre je retrouve bien mon classeur avec ses pages.............

apres j'ai regardé les liens mais j'ai pas vu de reponse similaire ou de question idem..........

donc si on peut m'aider ca serait sympa

Cordialement,


buz

 

[JCGL]

Re : Consolider des pages d'un classeur sur une seule page

Bonjour à tous,

Ouvert avec XL 2010... Il ne suffit pas de changer l'extension pour rendre un fichier XL > 2003 en XL 2003...

Attention toutes les feuilles n'ont pas la même structure (la 1 est différente et la 61)

Peux-tu essayer avec :

Option Explicit
 Sub Consolide()
    Dim Sh As Worksheet, P As Range, DL&, J&
    J = 1
    With Sheets("Conso")
    Cells.ClearContents
        For Each Sh In Worksheets
            If Not Sh.Name Like "Conso" Then
                Set P = Sh.Range("B3:J" & Sh.[B65536].End(xlUp).Row)
                DL = .[B65536].End(xlUp).Row + J
                Cells(DL, "B").Resize(P.Rows.Count, 9).Value = P.Value
                Set P = Nothing
                J = J + 1
            End If
        Next Sh
        .Range("B2:B10000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
End Sub

A+ à tous