regrouper plusieurs feuilles en une seule

[Francois73]

bonjour

je pense avoir fait une fausse manip alors je recommence mon message

j'ai besoin de vous pour répondre à la question suivante:

comment regrouper plusieurs feuilles en une seule, c'est à dire compiler toutes les lignes (sauf ligne vide) de toutes les feuilles dans une nouvelle feuille (dans mon exemple elle s'appelle synthèse)

je joint mon exemple

compiler les lignes des feuilles entete, feuil1 et feuil2 dans synthèse

pour complément le nombre de feuilles peut varier , donc l'objectif est de prendre toutes les feuilles situées en amont de la feuille synthèse

merci d'avance de votre précieuse aide

 

[Francois73]

Re : regrouper plusieurs feuilles en une seule

bonjour

n'ayant pas de réponse je me permet de relancer

merci

 

[kiki29]

Re : regrouper plusieurs feuilles en une seule

Salut, à adapter à ton contexte, pour le CodeName voir ici

Option Explicit

Sub ConcatenationFeuilles()
Dim i As Long
Dim T() As Variant
    Application.ScreenUpdating = False
    ShConcat.Cells.Clear
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> ShConcat.Name Then
            With Sheets(i)
                T = .Range("A4:J" & .Range("A" & Rows.Count).End(xlUp).Row).Value
                ShConcat.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
            End With
        End If
    Next i
    Erase T
    Application.ScreenUpdating = True
End Sub

 

[Francois73]

Re : regrouper plusieurs feuilles en une seule

merci du coup de main cela fonctionne très bien