XL 2013 consolidation d'onglet

[kabamel]

Salut à tous, j'ai un problème avec un fichier excel que j'ai obtenu en convertissant un fichier pdf en excel, le fichier convertis a plus de 409 feuilles, je voudrais consolider ces feuilles en une seule, j'ai besoin de votre aide.
voici le fichier joint :

 

[gosselien]

Bonjour,

en créant une feuille "global" , ceci devrait fonctionner 🙂

P.

Sub consolider()
Application.ScreenUpdating = False
Sheets("Global").Cells.ClearContents
On Error Resume Next
For s = 2 To Sheets.Count
  If Sheets(s).Name = "global" Then GoTo suivant
  Set desti = Sheets("global").[A65000].End(xlUp)
  Sheets(s).[A1].CurrentRegion.Copy Destination:=desti(2)
suivant:
Next s
End Sub

P.

 

[kabamel]

Merci pour ta réponse rapide et précise, sauf que dans la liste, les entêtes apparaisses, comment faire pour les supprimées au même au moment que la copie. Merci encore une fois.

 

[gosselien]

re,

tu tries le tout et les titres seront au même endroit 🙂

P.

 

[kabamel]

Oui, c'est une solution, mais je voudrais le faire d'un seul cout avec VBA.

 

[BOISGONTIER]

Bonjour,

http://boisgontierjacques.free.fr/pages_site/GestionOnglets.htm#Consolidation

JB

 

[Shakki]

Bonjour,

Tes onglets n'ayant pas tous des entêtes, je te propose ceci (à mettre après Next S de la macro de Gosselien)

For i = Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1
If Cells(i, 3).Value = "Prénoms et Noms" & Chr(10) Then Rows(i).Delete
Next

A+