Regrouper plusieurs tableaux

JP54

XLDnaute Junior
Bonjour,
J'ai un fichier avec plusieurs feuilles, dans chaque feuille il y un tableau, ces tableaux sont identiques, je voudrais regroupé ces tableaux en un seul dans un autre onglet. A savoir que mes tableaux vont s'agrandir donc je voudrais que mon tableau récap. s'agrandisse également. En VBA ou formule excel.
Je vous ai mis un petit exemple.
Merci
 

Fichiers joints

Hieu

XLDnaute Impliqué
Salut,

Une solution par macro :
VB:
Sub Macro1()
For Each s In Sheets
If s.Name <> "Recap" Then
    For i = 4 To s.Range("A65000").End(xlUp).Row
        Sheets("Recap").Range("a4").Offset(k, 0) = s.Range("a" & i)
        Sheets("Recap").Range("b4").Offset(k, 0) = s.Range("b" & i)
        Sheets("Recap").Range("c4").Offset(k, 0) = s.Range("c" & i)
        k = k + 1
    Next i
End If
Next s
End Sub
 

Fichiers joints

JP54

XLDnaute Junior
J'ai encore une petite question.
Sur le fichier je viens de rajouter deux pages, mais je voudrais que la page ''Base_1 et Base_2'' ne figurent pas dans la page récap. Comment modifié le code pour que les tableaux ne figurent pas dans la page récap.
Et je supprime une ligne dans la Base_1, sera-t-il supprimer dans mon fichier récap.
 

Fichiers joints

Discussions similaires


Haut Bas