Microsoft 365 Compiler plusieurs tableaux en un seul

  • Initiateur de la discussion Initiateur de la discussion ShuarS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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. 😉
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
806
Retour