Aide pour Macro

[nonifel]

bonjour tout le monde ;

je cherche un macro qui me permet de regrouper le contenu de plusieurs feuilles dans une seule feuille.

Regrouper les infos de lundi, mardi, mercredi, jeudi et vendredi dans Récap.

Tout en gardant la mise en forme des cellules.

un grand Merci.

 

[GIBI]

Re : Aide pour Macro

Bonjour,

Voici une macro qui recopie ligne à ligne chaque journée dans récap, sans effacer Réacp

Sub Grouper()

    Lrecap = Sheets("Récap").Range("a65000").End(xlUp).Row ' dernière ligne de récap

    For Each onglet In ThisWorkbook.Sheets
       If onglet.Name <> "Récap" And onglet.Name <> "Liste" Then
            LigMax = Sheets(onglet.Name).Range("a65000").End(xlUp).Row 'derrniere ligne de la journée

            For L = 8 To LigMax  ' recopie de chaque ligne
                Lrecap = Lrecap + 1
                Sheets(onglet.Name).Rows(L).Copy Destination:=Sheets("Récap").Rows(Lrecap)
            Next


        End If
    Next
End Sub

tu peux optimiser en recopiant les lignes par bloc

Sub Grouper()

    For Each onglet In ThisWorkbook.Sheets
        If onglet.Name <> "Récap" And onglet.Name <> "Liste" Then
            ligMax = Sheets(onglet.Name).Range("a65000").End(xlUp).Row    'derrniere ligne de la journée
            If ligMax > 7 Then
                Lrecap = Sheets("Récap").Range("a65000").End(xlUp).Row + 1    ' dernière ligne de récap
                Sheets(onglet.Name).Rows(8 & ":" & ligMax).Copy Destination:=Sheets("Récap").Rows(Lrecap & ":" & Lrecap + ligMax - 8)
            End If
        End If
    Next
End Sub

GIBI

 

[nonifel]

Re : Aide pour Macro

Merci pour cette réponse ;

Cependant, j'ai crée un bouton "MAJ" pour actualiser la feuil récap... je souhaite réinitialiser le tableau après chaque appuie sur le bouton.

Merci beaucoup GIBI.