Macro copier plusieurs feuilles dans une feuille du classeur

Bonjour,

Je cherche à copier plusieurs feuilles d'un classeur dans une feuille d'un même classeur.

Dans le fichier joint, je souhaite copier les feuilles AA,BB,CC dans la feuille résultat sachant que chaque feuille a un nombre de ligne variable.

J'ai trouvé le code ci-dessous, mais cela concerne une copie vers un autre classeur. Je souhaite regrouper les feuilles en 1 seule dans le même classeur.

Sheets(Array("AA", "BB", "CC")).Copy 

Merci pour votre aide.

Cordialement.

227test-feuil.xls (15.00 Ko)

Bonjour

Ci joint une proposition :

  • aller sur la feuille source a traiter
  • lancer la macro avec Ctrl Maj T
  • les données de la feuille source sont sur la feuille résultat

A tester

Cordialement

FINDRH

464regroup-feuil.zip (13.89 Ko)

Bonjour,

Une autre proposition.

Cdlt

Option Explicit
Public Sub Consolider_feuilles()
Dim ws As Worksheet, tbl, c, lRow As Long

    Application.ScreenUpdating = False

    Set ws = Worksheets("Résultat")
    ws.Range("A1").CurrentRegion.Offset(1, 0).Delete
    tbl = Array("AA", "BB", "CC")
    lRow = 2
    For Each c In tbl
        Worksheets(c).Range("A1").CurrentRegion.Offset(1, 0).Copy
        ws.Cells(lRow, 1).PasteSpecial Paste:=xlPasteValues
        lRow = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
    Next
    Application.CutCopyMode = 0
    ws.Activate
    [A1].Select

    Set ws = Nothing

End Sub

Merci à tous les deux.

La réponse de Jean Eric est mieux adaptée à mes besoins.

Cordialement

Rechercher des sujets similaires à "macro copier feuilles feuille classeur"