Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier X feuilles sur une feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Nastar
  • 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 !

S'inscrire
N

Nastar

Guest
Salut a tous,

Je souhaite à l'aide d'une macro copier le contenu de plusieurs feuilles sur une feuille, chaque contenu à la suite de l'autre. Sachant que le nom et le nombre des feuilles n'est pas toujours le meme. J'ai essayer la macro suivante mais je n'y arrive pas. Quelqu'un peut-il m'aider?

Sub copy_all_sheets()[/COLOR][/COLOR]Dim Ligne, Nombre As Long
Sheets(1).Range("A1").CurrentRegion.ClearContents
For Nombre = Worksheets.Count To 2 Step -1
Sheets(Nombre).UsedRange

Ligne = Sheets(Nombre).Range("a1") _
.SpecialCells(xlCellTypeLastCell).Row
Sheets(1).Rows("1:" & Ligne).EntireRow.Insert _ shift:=xlDown
Sheets(Nombre).UsedRange.Copy Destination:=Sheets(1).Range("a1")
Application.CutCopyMode = False
Next Nombre

End Sub


Je suis ouvert à toute autre proposition, D'avance merci!🙄
 
Trier par date Trier par votes
Re : Copier X feuilles sur une feuille

Bonjour Nastar,
essaye ce code,

Sub copy()
Dim Ligne, Nombre As Long
Application.ScreenUpdating = False
For Nombre = Sheets.Count To 2 Step -1
Ligne = Range("a65536").End(xlUp).Row+1
Sheets(Nombre).Range("A1").CurrentRegion.copy
Sheets(1).Activate
Range("A" & Ligne).Select
ActiveSheet.Paste
Next Nombre
Application.ScreenUpdating = True
End Sub

Salut Yves
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier X feuilles sur une feuille

Salut Yves,

Merci pour ta solution, la macro fonctionne bien mais malheureusement elle ne copie pas tout le contenu des feuilles. En effet, si dans la colonne A une cellule est vide, la ligne entiere n'est pas copiée bien qu'elle contienne des infos.

Tu vois peut etre comment arranger ça. Merci encore ;-)
 
Vote positif 0 Vote négatif
Re : Copier X feuilles sur une feuille

Bonjour Nastar,le Forum

Voila le code transformé,

Private Sub CommandButton1_Click()
Dim Ligne, Nombre As Long
Application.ScreenUpdating = False
For Nombre = Sheets.Count To 2 Step -1
Ligne = Range("a65536").End(xlUp).Row + 1
Sheets(Nombre).Range("a1:" & Sheets(Nombre).Range("a1").SpecialCells(xlCellTypeLastCell).Address).copy
Sheets(1).Activate
Range("A" & Ligne).Select
ActiveSheet.Paste
Next Nombre
Range("a1").Select
End Sub
Bon Dimanche Yves
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
253
cathodique
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
393
mapomme
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
420
MATLEA
M
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
389
AlineJ
A
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
787
AtTheOne
K
  • Question Question
XL 2010 copier le contenu de plusieurs feuilles sur une seule
Réponses
3
Affichages
374
sylvanu
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
427
Pierreavecunp
P
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
852
AtTheOne
N
  • Question Question
Microsoft 365 Alimenter une Combo Active X inséré dans une feuille de calcul
Réponses
3
Affichages
462
NONO14
N
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
510
job75
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
633
spike29
S
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
550
sylvanu
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
525
xavieralvaro
X
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
697
micie1509
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
791
ph.vanne
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
1 K
Compte Supprimé 979
C
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…