COMPILER PLUSIEURS FEUILLES

[musat]

Bonjour tot le monde,

Comment s'est passé le week end!

Alors aujourd'hui, je voudrais vous exposer un petit problème ordinaire:

J'ai un fichier Excel comportant 5plusieurs feuilles comportant chacune une ligne de titre identique avec des milliers d'enregistrements

1/ Créer une feuille applée SYNTHESE + copier ligne titre de l'une des autres feuilles

2/Copier toutes les feuilles dans SYNTHESE l'une au-dessous de l'autre à l'exception de la ligne titre bien sûr

Merci

 

[STéphane]

bonjour


accrochez-vous


Sub hhh()
Application.DisplayAlerts = False
Sheets("synthèse").Delete
Sheets.Add.Name = "synthèse": Set actsh = ActiveSheet
For Each sh In Sheets
If sh.Name <> actsh.Name Then
sh.UsedRange.Offset(IIf(actsh.UsedRange.Rows.Count = 1, 0, 1)). _
Resize(IIf(actsh.UsedRange.Rows.Count = 1, sh.UsedRange.Rows.Count, sh.UsedRange.Rows.Count - 1)).Copy actsh.Range("a65536").End(xlUp).Offset(IIf(actsh.UsedRange.Rows.Count = 1, 0, 1))
End If
Next sh
actsh.Select
End Sub

bye
Stéphane