Microsoft 365 Compiler plusieurs tableaux en un seul

ShuarS

XLDnaute Occasionnel
Salut à tous :)

Je cherche une petite macro simple pour compiler plusieurs tableaux répartis dans plusieurs feuilles (un tableau par feuille) dans une feuille récapitulative.
Voici un fichier pour exemple.

La quantité de lignes par tableau sera variable;
La quantité de feuilles et donc de tableaux sera variable également;
La feuille récapitulative servira à la construction d'un tableau croisé dynamique.

Merci pour votre aide,
Shu
 
Solution
Re

Ca marchera mieux ainsi ;)
VB:
Sub testB()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets
If ws.Name <> "Compil" Then
Set desti = Sheets("Compil").ListObjects(1).DataBodyRange
ws.ListObjects(1).DataBodyRange.Copy desti.Offset(desti.Rows.Count)
Application.CutCopyMode = False
Set desti = Nothing
End If
Next
End Sub
NB: Si la feuille 2 n'avait point été là, j'aurais posté directement cette version. ;)

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 105
Messages
2 085 350
Membres
102 870
dernier inscrit
Armisa