Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or
0
0
0
s2smodern

Comment fusionner des feuilles de calcul/classeurs en une seule feuille de calcul?

Lorsque nous utilisons Excel, nous avons généralement besoin de fusionner des multiples feuilles de calcul ou classeurs en une seule feuille de calcul principale, afin que nous puissions analyser et compter les données rapidement et facilement. Pour les utilisateurs généraux, nous ne pouvons le faire qu'en utilisant la commande Copy et Paste; c'est facile de regrouper quelques feuilles de calcul mais s'il y en a des nombreuses feuilles de calcul, cette méthode sera longue. Aujourd'hui, je vais parler de quelques astuces pour résoudre ce problème.

Fusionner toutes les feuilles de calcul du classeur actif en une seule avec code VBA

Fusionner des feuilles de calcul ou des classeurs en une seule feuille de calcul avec Kutools for Excel

Recommended Productivity Software

Office Tab: Use tabbed interface in Office as the use of web browser Chrome, Firefox and Internet Explorer.
Kutools for Excel: Adds 300 powerful new features to Excel. Increase your productivity in 5 minutes. Save two hours every day!
Classic Menu for Office: Brings back your familiar menus to Office 2007, 2010, 2013, 2016, 2019 and Office 365.

arrow blue right bubble Fusionner toutes les feuilles de calcul d'un classeur actif en une seule avec code VBA

Supposons que vous avez trois feuilles de calcul (Classe1, Classe2, Classe3) qui contiennent quelques informations sur les étudiants et que maintenant vous avez besoin de les fusionner en une seule feuille de calcul. Voir les captures d'écran suivantes:

doc-merge-worksheets-into-one1
doc-button2



doc-merge-worksheets-into-one4




doc-button1
doc-merge-worksheets-into-one2
doc-button1
doc-merge-worksheets-into-one3

Le suivant code VBA peut vous aider d'obtenir les données de toutes les feuilles de calcul du classeur actif dans une nouvelle feuille de calcul unique. En même temps, toutes les feuilles de calcul doivent avoir la même structure de champs, les mêmes en-têtes de colonne et le même ordre de colonne. Veuillez faire comme indiqué ci-dessous:

1. Appuyer simultanément sur les touches ALT + F11 et une fenêtre Microsoft Visual Basic for Applications va s'ouvrir.

2. Cliquer sur Insert > Module et coller le code suivant dans la fenêtre Module.

VBA: Fusionner toutes les feuilles de classeur actif dans l'une

Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub

3. Alors appuyer sur la touche F5 pour exécuter le code et toutes les données du classeur ont été fusionnées en une seule feuille de calcul nommée Combined qui sera ajoutée avant toutes les feuilles de calcul.

Notes:

(1.) Vos données doivent commencer par A1, sinon le code n'aura pas d'effet.

(2.) Vos données doivent avoir la même structure.

(3.) Ce code peut regrouper seulement toutes les feuilles de calcul du classeur actif; si vous voulez fusionner des feuilles de calcul de multiples classeurs, ce code ne fonctionnera pas.


arrow blue right bubble Fusionner des feuilles de calcul ou des classeurs en une seule feuille de calcul avec Kutools for Excel

Peut-être que le code ci-dessus présente quelques restrictions pour vous; l'utilitaire  Kutools for Excel’s Combine peut vous aider de fusionner des feuilles de calcul d'un classeur ou des classeurs multiples rapidement et facilement, qu'ils aient la même structure ou non.

Kutools for Excel inclut plus de 120 extensions Excel pratiques. 30 jours d'essai gratuit sans limitation. Lire davantage     Télécharger gratuitement maintenant

Supposons que vous avez deux classeurs qui doivent être fusionnés et que les feuilles de calcul n'ont pas les mêmes structures, comme montré sur les captures d'écran suivantes; dans ce cas, l'outil Combine de Kutools for Excel peut résoudre ce problème aussi.

doc-merge-worksheets-into-one7   doc-merge-worksheets-into-one8

Après avoir installé Kutools for Excel, veuillez faire le suivant :

1. Cliquez sur Enterprise > Combine, voir la capture d'écran:

doc merge worksheets into one sheet 5

2. Dans l'assistant Combine Worksheets sélectionner Combine multiple worksheets from workbooks into one worksheet. Voir la capture d'écran:

doc merge worksheets into one sheet 6

3. Cliquer sur le bouton Next ,  à létape 2 de l'assistant; tous les classeurs et feuilles de calcul ouverts sont listés dans des listes déroulantes; si vous voulez ajouter d'autres classeurs ou dossiers, vous pouvez cliquer sur le bouton Add pour insérer les fichiers que vous voulez regrouper. Alors spécifier les feuilles de calcul que vous voulez regrouper et cliquer sur le bouton button1 pour sélectionner la plage que vous voulez utiliser. (Par défaut, la plage utilisée est sélectionnée pour chaque feuille de calcul). Voir la capture d'écran:

doc merge worksheets into one sheet 7

4. Après avoir spécifié les feuilles de calcul et les plages, continuer en cliquant sur le bouton Next à l'étape 3 de l'assistant et faites les réglages suivants dont vous avez besoin; voir la capture d'écran:

doc merge worksheets into one sheet 8

5. Après avoir terminé les réglages, cliquer sur le bouton Finish pour regrouper les feuilles de calcul. On vous demandera si vous voulez sauvegarder le scénario; voir la capture d'écran:

doc-merge-worksheets-into-one11

Si vous voulez sauvegarder ce scénario, cliquez sur Yes, et saisissez le nom du scénario (voir la capture d'écran qui suit); Lorsque vous voulez utiliser ce scénario, vous n'avez que cliquer sur le bouton Scenario pour choisir le nom du scénario dont vous avez besoin, à l'étape 2 de l'assistant. Si vous ne voulez pas sauvegarder ce scénario, cliquez sur No.

doc merge worksheets into one sheet 9

Et toutes les feuilles de calcul dans les classeurs ont été fusionnées en une nouvelle feuille de calcul d'un classeur. L'information sur la feuille de calcul a été ajoutée avant les données. Voir la capture d'écran:

doc merge worksheets into one sheet 10

Si vous voulez savoir plus sur cette fonction, cliquez ici Regrouper des feuilles de calcul multiples de classeurs différents dans un seul classeur
Télecharger gratuitement Kutools for Excel maintenant.


arrow blue right bubbleRelative Articles:

 

Is your problem solved?

Recommended Productivity Tools

The following tools will greatly save your time and effort, which one do you prefer?
Office Tab: Using handy tabs in your Office, as the way of Chrome, Firefox and New Internet Explorer.
Kutools for Excel: 300+ powerful new functions for Excel, Increase your productivity in 5 minutes. Save two hours every day!
Classic Menu for Office: Bring back familiar menus to Office 2007, 2010, 2013, 2016, 2019 and 365, as if it were Office 2000 and 2003.

Kutools for Excel

gold star1 Amazing! Increase your productivity in 5 minutes. Don't need any special skills, save two hours every day!

gold star1 More than 300 powerful advanced functions which designed for Excel:

  • Merge Cell/Rows/Columns without Losing Data.
  • Combine and Consolidate Multiple Sheets and Workbooks.
  • Compare Ranges, Copy Multiple Ranges, Convert Text to Date, Unit and Currency Conversion.
  • Count by Colors, Paging Subtotals, Advanced Sort and Super Filter,
  • More Select/Insert/Delete/Text/Format/Link/Comment/Workbooks/Worksheets Tools...

Screen shot of Kutools for Excel

btn read more      btn download     btn purchase

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sarah · 9 months ago
    Existe-t-il un moyen d'améliorer le code pour le rendre dynamique, c'est-à-dire afin que les màj de l'une des différentes feuilles de calcul se répercutent dans la feuille de calcul combined ?
  • To post as a guest, your comment is unpublished.
    elfiiu · 9 months ago
    merci pour le partage
  • To post as a guest, your comment is unpublished.
    Carine · 11 months ago
    Génial ! merci ;)
  • To post as a guest, your comment is unpublished.
    Pigo · 1 years ago
    J'ai modifié la requête fournie afin qu'elle fonctionne quelque-soit le contenu des ongles ( ça ne nécessite plus que la case A1 soit remplie):

    Sub Combine()
    Dim J As Integer
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Combined"
    For J = 2 To Sheets.Count
    Sheets(J).UsedRange.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
    Next
    End Sub