Microsoft 365 Fusionner plusieurs feuilles de calcul issus d'un même fichier

job75 à dit:

Une solution VBA très simple, dans le code de Feuil3 :

VB:

Private Sub Worksheet_Activate()
Dim lig&, w As Worksheet, P As Range, h&
lig = 2
Application.ScreenUpdating = False
Rows(lig & ":" & Rows.Count).Delete 'RAZ
For Each w In Worksheets
    If w.Name <> Me.Name Then
        Set P = w.[A1].CurrentRegion.EntireRow
        h = P.Rows.Count - 1
        If h Then
            P.Rows(2).Resize(h).Copy Cells(lig, 1) 'copier-coller
            lig = lig + h
        End If
    End If
Next
End Sub

La macro se déclenche quand on active la feuille.

A+

Cliquez pour agrandir...

Tidjyphenom à dit:

Bien que pour parfaire le truc, l'idéal aurait été de choisir de ne fusionner uniquement que toutes les feuilles à gauche de celle où est appliquée la MACRO afin de ne pas ajoutée des données non voulues dans d'autres feuilles (celles à droite).

Cliquez pour agrandir...

If w.Name <> Me.Name Then

If w.Index < Me.Index Then