Comment fusionner plusieurs feuilles de calcul en une seule dans E
1 réponse
Vero
J'ai reçu un fichier Excel avec 70 feuilles de calcul, avec des colonnes
similaires. J'ai besoin de les compiler en une seule feuille pour constituer
une base de données.
Connaissez-vous un moyen de fusionner rapidement les feuilles sans faire 70
fois la copie de chaque plage de données?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
---???-- ----------- Ceci créé une feuille nommée "Compilation" pour y coller la zone nommée "plage"(a adapter) de toutes les feuilles présentent dans le classeur, les unes à la suite des autres. Dans l'exemple la plage a copier est A1:J + dernière ligne de la colonne A Ne colle que les valeurs, pas le format ni les formules '------------- Sub jj() Dim sh As Worksheet Application.DisplayAlerts = False On Error Resume Next Sheets("Compilation").Delete Application.DisplayAlerts = True On Error GoTo 0 Sheets.Add ActiveSheet.Name = "Compilation" [a1] = "Compilation" For Each sh In ActiveWorkbook.Sheets If sh.Name <> "Compilation" Then Set plage = sh.Range("a1:j" & sh.Cells(Rows.Count, "a").End(3).Row) '**A adapter** plage.Copy Sheets("Compilation").Range("a" & Sheets("Compilation").Cells(Rows.Count, "a").End(3).Row + 1).PasteSpecial Paste:=xlPasteValues End If Next End Sub '---------------
-- Salutations JJ
"Vero" a écrit dans le message de news:
J'ai reçu un fichier Excel avec 70 feuilles de calcul, avec des colonnes similaires. J'ai besoin de les compiler en une seule feuille pour constituer une base de données.
Connaissez-vous un moyen de fusionner rapidement les feuilles sans faire 70 fois la copie de chaque plage de données?
Merci d'avance.
---???--
-----------
Ceci créé une feuille nommée "Compilation" pour y coller la zone nommée
"plage"(a adapter) de toutes les feuilles présentent dans le classeur, les
unes à la suite des autres.
Dans l'exemple la plage a copier est A1:J + dernière ligne de la colonne A
Ne colle que les valeurs, pas le format ni les formules
'-------------
Sub jj()
Dim sh As Worksheet
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Compilation").Delete
Application.DisplayAlerts = True
On Error GoTo 0
Sheets.Add
ActiveSheet.Name = "Compilation"
[a1] = "Compilation"
For Each sh In ActiveWorkbook.Sheets
If sh.Name <> "Compilation" Then
Set plage = sh.Range("a1:j" & sh.Cells(Rows.Count, "a").End(3).Row) '**A
adapter**
plage.Copy
Sheets("Compilation").Range("a" &
Sheets("Compilation").Cells(Rows.Count, "a").End(3).Row + 1).PasteSpecial
Paste:=xlPasteValues
End If
Next
End Sub
'---------------
--
Salutations
JJ
"Vero" <Vero@discussions.microsoft.com> a écrit dans le message de news:
811FE9C3-9A54-494F-B65B-CA8C841296D7@microsoft.com...
J'ai reçu un fichier Excel avec 70 feuilles de calcul, avec des colonnes
similaires. J'ai besoin de les compiler en une seule feuille pour
constituer
une base de données.
Connaissez-vous un moyen de fusionner rapidement les feuilles sans faire
70
fois la copie de chaque plage de données?
---???-- ----------- Ceci créé une feuille nommée "Compilation" pour y coller la zone nommée "plage"(a adapter) de toutes les feuilles présentent dans le classeur, les unes à la suite des autres. Dans l'exemple la plage a copier est A1:J + dernière ligne de la colonne A Ne colle que les valeurs, pas le format ni les formules '------------- Sub jj() Dim sh As Worksheet Application.DisplayAlerts = False On Error Resume Next Sheets("Compilation").Delete Application.DisplayAlerts = True On Error GoTo 0 Sheets.Add ActiveSheet.Name = "Compilation" [a1] = "Compilation" For Each sh In ActiveWorkbook.Sheets If sh.Name <> "Compilation" Then Set plage = sh.Range("a1:j" & sh.Cells(Rows.Count, "a").End(3).Row) '**A adapter** plage.Copy Sheets("Compilation").Range("a" & Sheets("Compilation").Cells(Rows.Count, "a").End(3).Row + 1).PasteSpecial Paste:=xlPasteValues End If Next End Sub '---------------
-- Salutations JJ
"Vero" a écrit dans le message de news:
J'ai reçu un fichier Excel avec 70 feuilles de calcul, avec des colonnes similaires. J'ai besoin de les compiler en une seule feuille pour constituer une base de données.
Connaissez-vous un moyen de fusionner rapidement les feuilles sans faire 70 fois la copie de chaque plage de données?