recopier des plages de cellules

[maxou91]

Bonjour,

Je souhaite recopier automatiquement une plage de cellules de plusieurs feuilles dans une feuille récapitulatif avec un espace d'une ligne entre toutes les feuilles ( aix en p , antony,etc..) avec les mêmes colonnes et dans le même classeur.

Merci de votre aide [file name=JOURNAL.zip size=28265]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/JOURNAL.zip[/file]

 

[_Thierry]

Bonjour Maxou91, le Forum


Voilà une petite macro qui fera ce que tu souhaites à condition que la colonne 'A' (DOMAINE) soit toujours renseignée...

Sub TheCumulator()
Dim WS As Worksheet
Dim WSCible As Worksheet
Dim Plage As Range
Dim LastCell As Range

Set WSCible = ThisWorkbook.Worksheets('RECAPITULATIF')

For Each WS In ThisWorkbook.Worksheets
    If Not WS.Name = 'RECAPITULATIF' Then
        Set Plage = WS.Range('A16:M' & WS.Range('A500').End(xlUp).Row)
        Set LastCell = WSCible.Range('A65536').End(xlUp).Offset(2, 0)
        Plage.Copy LastCell
    End If
Next


End Sub

Bon Dimanche
[ol]@+Thierry[/ol]

 

[maxou91]

merci de ta réponse rapide, j'ai inseré la macro dans visual basic d'excel mais cela ne fonctionne pas.
Pourrais tu l'inserer directement dans le fichier stp
merci d'avance

 

[maxou91]

BONJOUR
Finalement cela fonctionne .Par contre dans récapitulatif ,il me remet les entêtes ( domaines , numero FDT etc...). Pourrais tu me mettre uniquement les lignes qui ont été rajoutées sur chaque feuilles .
merci d'avance