MACRO COPIER PLUSIEURS FEUILLES DANS UNE FEUILLE DU CLASSEUR Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
D
DS3469
Membre habitué
Membre habitué
Messages : 86
Inscrit le : 27 septembre 2014
Version d'Excel : 2010

Message par DS3469 » 6 janvier 2015, 10:33

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.
TEST FEUIL.xls
(15 Kio) Téléchargé 178 fois
F
FINDRH
Membre impliqué
Membre impliqué
Messages : 1'398
Appréciations reçues : 15
Inscrit le : 12 février 2010
Version d'Excel : 2016

Message par FINDRH » 6 janvier 2015, 11:32

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
Regroup FEUIL.xls
(47 Kio) Téléchargé 370 fois
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'357
Appréciations reçues : 665
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 6 janvier 2015, 11:58

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
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
D
DS3469
Membre habitué
Membre habitué
Messages : 86
Inscrit le : 27 septembre 2014
Version d'Excel : 2010

Message par DS3469 » 7 janvier 2015, 13:02

Merci à tous les deux.
La réponse de Jean Eric est mieux adaptée à mes besoins.

Cordialement
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message