Regrouper feuilles Excel

Bonjour,

J'aimerais de l'aide pour regrouper des feuilles générées selon un modèle; le tout dans une feuille de synthèse.

Les feuilles générées (dont le nombre et le nom changent à chaque utilisation du fichier) comportent des données encadrées en bleu.

J'aimerais regrouper ces données dans la feuille de synthèse, pour chaque feuille générée depuis la liste.

Pouvez vous m'aider à faire cela?

Bonjour,

Voir procédure ConsolidateData.

Crée des feuilles et teste !...

Cdlt.

Super, cela fonctionne à merveille

Merci beaucoup.

J'ai encore une petite question, j'ai ajouté la fonction ci dessous pour supprimer le tableau de synthèse:

Worksheets("SYNTH").Range("A2:BZ60000").ClearContents 'effacement synthese

Mais lorsque je relance la macro pour créer la synthèse, celle ci ne se commence pas sur la ligne 2 comme prévu initialement, mais sous la dernière ligne supprimée.

Par exemple, je lance une génération de feuille + synthèse depuis une liste.

Cela créer 5 feuilles, et 140 lignes dans la synthèse.

Je les supprimer pour relancer une génération et synthèse depuis une autre liste.

Et à ce moment, la synthèse commence à la 141 eme ligne.

Avez vous une solution pour que la synthèse commence toujours à la 2eme ligne?

D'avance merci pour votre réponse

Edit: cela vient du fait que la synthèse soit mise en forme de tableau je pense

Re,

Pour vider le tableau en Synth :

Public Sub CleanTable()
Dim lo As ListObject
    Application.ScreenUpdating = False
    Set lo = Range("Synthèse").ListObject
    With lo
        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
    End With
End Sub

Parfait;

merci

et un grand bravo :)