Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Fusionner les onglets d'une même feuille

Fusionner les onglets d'une même feuille

9 réponses
Avatar
Frankyl1999
Bonjour,
Voila mon problème. J'ai un tableau Excel avec une dizaine d'onglets
différents nommés par exemple : 43936, 221654, RECU, JAN04 etc...
Ces onglets sont tous d'un format identique. Je voudrais pouvoir les
fusionner (ou les consolider) pour les avoir dans un seul et même onglet.
Suis preneur de toutes vos propositions !
Merci à Tous et Toutes de votre aide précieuse.
Franky
Signaler un problème avec ce contenu

9 réponses

Supprimer
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
Avatar
Misange
tu trouveras une réponse à cette même question exactement hier ! :-)

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


Bonjour,
Voila mon problème. J'ai un tableau Excel avec une dizaine d'onglets
différents nommés par exemple : 43936, 221654, RECU, JAN04 etc...
Ces onglets sont tous d'un format identique. Je voudrais pouvoir les
fusionner (ou les consolider) pour les avoir dans un seul et même onglet.
Suis preneur de toutes vos propositions !
Merci à Tous et Toutes de votre aide précieuse.
Franky




Avatar
Pascal Engelmajer
Salut,
à adapter
Sub fusion()
Dim dest As Variant
Dim i As Integer
Dim ws1 As Worksheet
Sheets(1).UsedRange
Set ws1 = Sheets(1)
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Set dest = ws1.Cells(ws1.Cells(ws1.UsedRange.Cells.Count, 1).Row
+ 1, 1)
Debug.Print dest.Address
Sheets(i).UsedRange.Copy dest
Next i
Application.ScreenUpdating = True
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Frankyl1999" a écrit dans le message de news:

Bonjour,
Voila mon problème. J'ai un tableau Excel avec une dizaine d'onglets
différents nommés par exemple : 43936, 221654, RECU, JAN04 etc...
Ces onglets sont tous d'un format identique. Je voudrais pouvoir les
fusionner (ou les consolider) pour les avoir dans un seul et même onglet.
Suis preneur de toutes vos propositions !
Merci à Tous et Toutes de votre aide précieuse.
Franky




Avatar
Michèle
Bonjour,

Je suppose que tu veux faire une conso (addition) de toutes tes feuilles.
En supposant que la première feuille s'appelle 43936 et la dernière JAN04
tout simplement, je te propose dans un nouvel onglet de récap de saisir en
A1 :
=somme(43936:JAN04!A1) ne pas oublier le point d'exclamation après le nom
du dernier onglet
puis tu recopies cette formule en tirant sur la poignée de recopie vers la
droite puis vers le bas

Bonne journée

Michèle

"Frankyl1999" a écrit dans le message de news:

Bonjour,
Voila mon problème. J'ai un tableau Excel avec une dizaine d'onglets
différents nommés par exemple : 43936, 221654, RECU, JAN04 etc...
Ces onglets sont tous d'un format identique. Je voudrais pouvoir les
fusionner (ou les consolider) pour les avoir dans un seul et même onglet.
Suis preneur de toutes vos propositions !
Merci à Tous et Toutes de votre aide précieuse.
Franky




Avatar
Frankyl1999
Ce n'est pas vraiement une addition, car même si les onglets ont le même
format, les lignes de ces mêmes onglets sont differentes. je veux en fait
les empiler les uns sous les autres !
Franky

"Michèle" a écrit dans le message de
news:%
Bonjour,

Je suppose que tu veux faire une conso (addition) de toutes tes feuilles.
En supposant que la première feuille s'appelle 43936 et la dernière JAN04
tout simplement, je te propose dans un nouvel onglet de récap de saisir en
A1 :
=somme(43936:JAN04!A1) ne pas oublier le point d'exclamation après le nom
du dernier onglet
puis tu recopies cette formule en tirant sur la poignée de recopie vers la
droite puis vers le bas

Bonne journée

Michèle

"Frankyl1999" a écrit dans le message de news:

Bonjour,
Voila mon problème. J'ai un tableau Excel avec une dizaine d'onglets
différents nommés par exemple : 43936, 221654, RECU, JAN04 etc...
Ces onglets sont tous d'un format identique. Je voudrais pouvoir les
fusionner (ou les consolider) pour les avoir dans un seul et même
onglet.


Suis preneur de toutes vos propositions !
Merci à Tous et Toutes de votre aide précieuse.
Franky








Avatar
Pascal Engelmajer
Salut,
c'est ce que fait ma procédure...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Frankyl1999" a écrit dans le message de news:
#
Ce n'est pas vraiement une addition, car même si les onglets ont le même
format, les lignes de ces mêmes onglets sont differentes. je veux en fait
les empiler les uns sous les autres !
Franky

"Michèle" a écrit dans le message de
news:%
Bonjour,

Je suppose que tu veux faire une conso (addition) de toutes tes
feuilles.


En supposant que la première feuille s'appelle 43936 et la dernière
JAN04


tout simplement, je te propose dans un nouvel onglet de récap de saisir
en


A1 :
=somme(43936:JAN04!A1) ne pas oublier le point d'exclamation après le
nom


du dernier onglet
puis tu recopies cette formule en tirant sur la poignée de recopie vers
la


droite puis vers le bas

Bonne journée

Michèle

"Frankyl1999" a écrit dans le message de news:

Bonjour,
Voila mon problème. J'ai un tableau Excel avec une dizaine d'onglets
différents nommés par exemple : 43936, 221654, RECU, JAN04 etc...
Ces onglets sont tous d'un format identique. Je voudrais pouvoir les
fusionner (ou les consolider) pour les avoir dans un seul et même
onglet.


Suis preneur de toutes vos propositions !
Merci à Tous et Toutes de votre aide précieuse.
Franky












Avatar
Frankyl1999
Désolé mais j'ai pas touvé cette procédure ! je suis pourtant allé consulter
le lien proposé !
Tant pis personne ne peux m'aider (sniff), je vais continuer à faire ça
manuellement.
Frank

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
c'est ce que fait ma procédure...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Frankyl1999" a écrit dans le message de news:
#
Ce n'est pas vraiement une addition, car même si les onglets ont le même
format, les lignes de ces mêmes onglets sont differentes. je veux en
fait


les empiler les uns sous les autres !
Franky

"Michèle" a écrit dans le message de
news:%
Bonjour,

Je suppose que tu veux faire une conso (addition) de toutes tes
feuilles.


En supposant que la première feuille s'appelle 43936 et la dernière
JAN04


tout simplement, je te propose dans un nouvel onglet de récap de
saisir



en
A1 :
=somme(43936:JAN04!A1) ne pas oublier le point d'exclamation après le
nom


du dernier onglet
puis tu recopies cette formule en tirant sur la poignée de recopie
vers



la
droite puis vers le bas

Bonne journée

Michèle

"Frankyl1999" a écrit dans le message de news:

Bonjour,
Voila mon problème. J'ai un tableau Excel avec une dizaine d'onglets
différents nommés par exemple : 43936, 221654, RECU, JAN04 etc...
Ces onglets sont tous d'un format identique. Je voudrais pouvoir les
fusionner (ou les consolider) pour les avoir dans un seul et même
onglet.


Suis preneur de toutes vos propositions !
Merci à Tous et Toutes de votre aide précieuse.
Franky
















Avatar
Philippe.R
Et ceci Francky, c'est pas de la procédure ? ;o)) :

Sub fusion()
Dim dest As Variant
Dim i As Integer
Dim ws1 As Worksheet
Sheets(1).UsedRange
Set ws1 = Sheets(1)
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Set dest = ws1.Cells(ws1.Cells(ws1.UsedRange.Cells.Count, 1).Row
+ 1, 1)
Debug.Print dest.Address
Sheets(i).UsedRange.Copy dest
Next i
Application.ScreenUpdating = True
End Sub

Généreusement offerte par Pascal.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Frankyl1999" a écrit dans le message de
news:
Désolé mais j'ai pas touvé cette procédure ! je suis pourtant allé consulter
le lien proposé !
Tant pis personne ne peux m'aider (sniff), je vais continuer à faire ça
manuellement.
Frank

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
c'est ce que fait ma procédure...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Frankyl1999" a écrit dans le message de news:
#
Ce n'est pas vraiement une addition, car même si les onglets ont le même
format, les lignes de ces mêmes onglets sont differentes. je veux en
fait


les empiler les uns sous les autres !
Franky

"Michèle" a écrit dans le message de
news:%
Bonjour,

Je suppose que tu veux faire une conso (addition) de toutes tes
feuilles.


En supposant que la première feuille s'appelle 43936 et la dernière
JAN04


tout simplement, je te propose dans un nouvel onglet de récap de
saisir



en
A1 :
=somme(43936:JAN04!A1) ne pas oublier le point d'exclamation après le
nom


du dernier onglet
puis tu recopies cette formule en tirant sur la poignée de recopie
vers



la
droite puis vers le bas

Bonne journée

Michèle

"Frankyl1999" a écrit dans le message de news:

Bonjour,
Voila mon problème. J'ai un tableau Excel avec une dizaine d'onglets
différents nommés par exemple : 43936, 221654, RECU, JAN04 etc...
Ces onglets sont tous d'un format identique. Je voudrais pouvoir les
fusionner (ou les consolider) pour les avoir dans un seul et même
onglet.


Suis preneur de toutes vos propositions !
Merci à Tous et Toutes de votre aide précieuse.
Franky




















Avatar
Clément Marcotte
Bonjour,

Désolé mais j'ai pas touvé cette procédure ! je suis pourtant allé
consulter

le lien proposé !


Elle est dans sa réponse

Avatar
Frankyl1999
OUI OUI OUI
ça marche impecable
1 000 000 de mercis
Franky

"Philippe.R" a écrit dans le message de
news:
Et ceci Francky, c'est pas de la procédure ? ;o)) :

Sub fusion()
Dim dest As Variant
Dim i As Integer
Dim ws1 As Worksheet
Sheets(1).UsedRange
Set ws1 = Sheets(1)
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Set dest = ws1.Cells(ws1.Cells(ws1.UsedRange.Cells.Count,
1).Row

+ 1, 1)
Debug.Print dest.Address
Sheets(i).UsedRange.Copy dest
Next i
Application.ScreenUpdating = True
End Sub

Généreusement offerte par Pascal.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Frankyl1999" a écrit dans le message de
news:
Désolé mais j'ai pas touvé cette procédure ! je suis pourtant allé
consulter


le lien proposé !
Tant pis personne ne peux m'aider (sniff), je vais continuer à faire ça
manuellement.
Frank

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
c'est ce que fait ma procédure...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Frankyl1999" a écrit dans le message de news:
#
Ce n'est pas vraiement une addition, car même si les onglets ont le
même




format, les lignes de ces mêmes onglets sont differentes. je veux en
fait


les empiler les uns sous les autres !
Franky

"Michèle" a écrit dans le message de
news:%
Bonjour,

Je suppose que tu veux faire une conso (addition) de toutes tes
feuilles.


En supposant que la première feuille s'appelle 43936 et la
dernière





JAN04
tout simplement, je te propose dans un nouvel onglet de récap de
saisir



en
A1 :
=somme(43936:JAN04!A1) ne pas oublier le point d'exclamation
après le





nom
du dernier onglet
puis tu recopies cette formule en tirant sur la poignée de recopie
vers



la
droite puis vers le bas

Bonne journée

Michèle

"Frankyl1999" a écrit dans le message de
news:






Bonjour,
Voila mon problème. J'ai un tableau Excel avec une dizaine
d'onglets






différents nommés par exemple : 43936, 221654, RECU, JAN04
etc...






Ces onglets sont tous d'un format identique. Je voudrais pouvoir
les






fusionner (ou les consolider) pour les avoir dans un seul et
même






onglet.
Suis preneur de toutes vos propositions !
Merci à Tous et Toutes de votre aide précieuse.
Franky