Aide pour Macro

nonifel · 19 Juillet 2013

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 · 19 Juillet 2013

Re : Aide pour Macro

Bonjour,

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

Code:

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

Code:

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 · 19 Juillet 2013

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.

Aide pour Macro

nonifel

XLDnaute Junior

Pièces jointes

GIBI

XLDnaute Impliqué

nonifel

XLDnaute Junior

Discussions similaires

Aide pour Macro

nonifel

XLDnaute Junior

Pièces jointes

GIBI

XLDnaute Impliqué

nonifel

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency