Si vous obtenez des classeurs qui ont des données structurées de manière identique sur chaque feuille de calcul, vous pouvez être intéressé par un moyen de combiner les plusieurs feuilles de calcul en une seule et grande feuille de calcul.

Le concept derrière la condensation est assez simple: il vous suffit de copier les données de la deuxième feuille de calcul et des suivantes dans la première ligne vide de la première feuille de calcul. Excel n’inclut pas d’outil qui vous permet de le faire automatiquement, mais c’est un excellent candidat pour une macro. N’oubliez pas, cependant, que la structure de chaque feuille de travail que vous condensez doit être identique.

La macro suivante parcourt toutes les feuilles de calcul et combine les données dans une nouvelle feuille de calcul qu’elle ajoute au début du classeur.

Sub Combine()

Dim J As Integer     Dim s As Worksheet

On Error Resume Next     Sheets(1).Select     Worksheets.Add ' add a sheet in first place     Sheets(1).Name = "Combined"



' copy headings     Sheets(2).Activate     Range("A1").EntireRow.Select     Selection.Copy Destination:=Sheets(1).Range("A1")



For Each s In ActiveWorkbook.Sheets         If s.Name <> "Combined" Then             Application.GoTo Sheets(s.Name).[a1]

Selection.CurrentRegion.Select             ' Don't copy the headings             Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select             Selection.Copy Destination:=Sheets("Combined"). _               Cells(Rows.Count, 1).End(xlUp)(2)

End If     Next End Sub

Lorsque la macro est terminée, la première feuille du classeur, nommée combinée, contient toutes les données des autres feuilles de calcul. Les autres feuilles de calcul restent inchangées.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (8884) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Condensing_Multiple_Worksheets_Into_One [Condensation de plusieurs feuilles de travail en une seule].