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

copier 2 feuilles dans une seule

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

coolman53

Guest
Bonjour à tous

Voici mon probleme qui doit etre simple mais meme avec les recherches j'arrive pas!!!!

J'ai 5 onglets : Planif D/Planif F/Command D/Command F/Recap

Les données dans Planif D et Command D sont pris sur un fichier externe et illimité en nb de données

Les tableaux dans Planif F et Command F sont identique il ya juste les données qui change

Je voudrai que les données de ces 2 onglets se copie l'un derriere l'autre dans l'onglet Recap

J'ai essaye un bout de code que j'ai trouve mais j'arrive pas

Merci de votre aide

Sub Recap()
Application.ScreenUpdating = False
Sheets("Planif F").Range("A1:G65000", [A1:G65000].End(xlDown)).Copy
Sheets("Command F").Range("A1:G65000", [A1:G65000].End(xlDown)).Copy
Sheets("Recap").Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.Paste
Application.ScreenUpdating = True

End Sub
 

Pièces jointes

Trier par date Trier par votes
Re : copier 2 feuilles dans une seule

Bonjour coolman53,

Dans le code de la feuille Recap :

Code: 
Private Sub Worksheet_Activate()
Dim h1 As Long, h2 As Long
h1 = Sheets("Planif F").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Planif F").[A1:K1].Resize(h1).Copy [A1]
h2 = Sheets("Command F").Cells(Rows.Count, 1).End(xlUp).Row
If h2 > 1 Then _
  Sheets("Command F").[A2:K2].Resize(h2 - 1).Copy [A1].Offset(h1)
Range(Cells(h1 + h2, 1), Cells(Rows.Count, 11)).Clear
Columns("A:K").AutoFit 'largeur des colonnes
'---tri facultatif sur colonne A---
[A:K].Sort [A1], Header:=xlYes
End Sub
Fichier joint.

Nota : à la place de Sheets("Planif F") et Sheets("Command F")

il serait mieux d'utiliser le CodeName des feuilles : Feuil2 et Feuil4.

Edit : j'avais mal manipulé h2...

A+
 

Pièces jointes

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

J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
452
juju91
J
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
251
cathodique
F
  • Question Question
Autres Sélectionner une plage de cellule en VBA
Réponses
9
Affichages
331
patricktoulon
E
  • Résolu(e)
XL 2019 combobox intuitive
Réponses
14
Affichages
583
escudo
E
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
414
MATLEA
M
  • Résolu(e)
Microsoft 365 VBA : copier 2 onglets
Réponses
4
Affichages
242
job75
M
  • Question Question
Autres masquer des feuilles en vba
Réponses
1
Affichages
225
sylvanu
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
558
mikeduff
M
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
387
AlineJ
A
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
737
un internaute
U
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
541
sylvanu
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
521
StéphaneDeLà
S
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
509
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
631
spike29
S
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
857
Chaton77
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
S
  • Résolu(e)
XL 2016 Besoin d'aide pour un code d'extraction
Réponses
14
Affichages
1 K
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…