Fusionner des onglets

[UJAP]

Bonjour,

Je dois dans mon travail exploiter un fichier qui contient 30 onglets. Ces fichiers ont la même mise en forme. Je voudrai savoir si on peut par l'intermédiaire d'une commande copier les tableaux des divers onglets dans un tableau de synthèse.

J'ai trouvé ce code sur le net :

Sub consolide_onglets()
Sheets("synthese").[A1].CurrentRegion.Offset(1, 0).Clear
For Each s In Array("Onglet1", "Onglet2", "Onglet5")
Sheets(s).[A1].CurrentRegion.Offset(1, 0).Copy _
Sheets("synthese").[A65000].End(xlUp).Offset(1, 0)
Next s
End Sub

Faut-il le modifier pour le faire fonctionner ? Car pour l'instant je n'ai pas réussi,

Merci pour vos aides,

 

[pierrejean]

Re : Fusionner des onglets

Bonjour Ujap

A tester

Sub consolide_onglets()
Sheets("synthese").[A1].CurrentRegion.Offset(1, 0).Clear
For Each s In Sheets
If s.Name<>"synthese" then
s.[A1].CurrentRegion.Offset(1, 0).Copy _
Sheets("synthese").[A65000].End(xlUp).Offset(1, 0)
end if
Next s
End Sub

 

[UJAP]

Re : Fusionner des onglets

Salut,

Merci pour ta réponse,

Je n'arrive pas à faire fonctionner le code,

Je vous transmets un fichier pour visualiser le tableau,

Merci,

 

[UJAP]

Re : Fusionner des onglets

Avez-vous des idées pour m'aider ?

Merci d'avance,

 

[pierrejean]

Re : Fusionner des onglets

Re

Sub consolide_onglets()
Sheets("synthese").Cells.ClearContents
Sheets("synthese").Cells.ClearFormats
n = 0
For Each s In Sheets
If s.Name <> "synthese" Then
If n = 0 Then
  s.Cells.Copy Destination:=Sheets("synthese").Range("A1")
Else
s.Range("A13:K" & s.Range("A65536").End(xlUp).Row).Copy Destination:=Sheets("synthese").Range("A65536").End(xlUp).Offset(1, 0)
End If
End If
n = n + 1
Next s
End Sub

 

[UJAP]

Re : Fusionner des onglets

Merci PierreJean,

Le code fonctionne, merci bcp,