regrouper feuilles dans une feuille

[MASSJIPE]

Bonjour
J'ai un classeur avec 4 feuilles identique et une feuille synthèse comment faire pour transférer les 4 feuilles dans la synthèse en macro je connais pas grand chose
Merci

 

[phlaurent55]

Re : regrouper feuilles dans une feuille

Bonjour Massjipé,

voir fichier joint

à+
Philippe

 

[MASSJIPE]

Re : regrouper feuilles dans une feuille

Bonjour
c'est parfait mais si j'ai des feuilles intercalées entre deux ex AA feuil1 BB feuil2 etc comment faire pour prendre uniquement les feuilles AA BB CC DD etc

 

[JCGL]

Re : regrouper feuilles dans une feuille

Bonjour à tous,
Salut Philippe,

Au plus simple :

Option Explicit
Sub Consolidation()
Dim DerL&
    Cells.ClearContents
    With Sheets("Synthèse")
        DerL = Range("A65535").End(xlUp).Row + 1
        Sheets("AA").Range("A1:E" & Sheets("AA").Range("A65535").End(xlUp).Row).Copy .Cells(DerL, 1)
        DerL = Range("A65535").End(xlUp).Row + 1
        Sheets("BB").Range("A1:E" & Sheets("BB").Range("A65535").End(xlUp).Row).Copy .Cells(DerL, 1)
        DerL = Range("A65535").End(xlUp).Row + 1
        Sheets("CC").Range("A1:E" & Sheets("CC").Range("A65535").End(xlUp).Row).Copy .Cells(DerL, 1)
        DerL = Range("A65535").End(xlUp).Row + 1
        Sheets("DD").Range("A1:E" & Sheets("DD").Range("A65535").End(xlUp).Row).Copy .Cells(DerL, 1)
    End With
End Sub

A+ à tous

 

[laetitia90]

Re : regrouper feuilles dans une feuille

bonjour tous (e)🙂

on peut utiliser un array

 For Each s In Array("aa", "bb", "cc", "dd")
 With Sheets(s)
'code copy
 Next s
 End With