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

copie plage de plusieurs feuille vers une seule feuille

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

nounours49

Guest
salut à tous

je voudrais creer une boucle me permettant de copier la même plage provenant de differente feuille vers une seule feuille
ci joint ma macro pour la copie (il me manque juste la boucle)

Dim i As Integer
i = Worksheets("listing massif").Range("A65536").End(xlUp).Row
ActiveSheet.Range("AR29:BB38").Select
Selection.Copy
Sheets("listing massif").Select
ActiveSheet.Range("A" & i).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste link:=True
merci d'avance
 
Trier par date Trier par votes
Re : copie plage de plusieurs feuille vers une seule feuille

en supposant que "listing massif soit la premiere feuille :

Dim i As Integer, x as integer

For x = 2 to worksheets.count
i = Worksheets("listing massif").Range("A65536").End(xlUp).Row
Sheets(X).Range("AR29:BB38").Select
Selection.Copy
Sheets("listing massif").Select
ActiveSheet.Range("A" & i).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste link:=True
next x
 
Vote positif 0 Vote négatif
Re : copie plage de plusieurs feuille vers une seule feuille

bonjour Xanork,Nounours
une autre façon

Sub CopyPaste()
Dim i As Integer, Sh As Worksheet

For Each Sh In Worksheets
If Sh.Name <> "listing massif" Then
With Worksheets("Feuil2")
i = .Range("A65536").End(xlUp).Row + 1
End With

With Sh
.Range("AR29:BB38").Copy Destination:=Sheets("listing massif").Range("A" & i)
End With
End If
Next Sh

End Sub

à bientôt
 
Vote positif 0 Vote négatif
Re : copie plage de plusieurs feuille vers une seule feuille

rectification

Sub CopyPaste()
Dim i As Integer, Sh As Worksheet

For Each Sh In Worksheets
If Sh.Name <> "listing massif" Then
With Worksheets("listing massif")
i = .Range("A65536").End(xlUp).Row + 1
End With

With Sh
.Range("AR29:BB38").Copy Destination:=Sheets("listing massif").Range("A" & i)
End With
End If
Next Sh

End Sub

à bientôt
 
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

  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
448
flc13090
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
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
734
Piment
P
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
533
zendb
Z
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 copie de cellule de plusieurs feuilles sur une autre
Réponses
2
Affichages
257
vgendron
R
  • Question Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
909
Renaud22
R
  • Question Question
Microsoft 365 Copier une plage vers une autre feuille depuis un USF
Réponses
4
Affichages
410
chris6999
G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
720
gui22
G
K
  • Question Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
440
vgendron
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
1 K
salma_hayek
S
  • Résolu(e)
Microsoft 365 Enregistrer dans une feuille mais pas dans une autre
Réponses
11
Affichages
783
Olive de BI
B
  • Question Question
XL 2016 Interférence entre une boucle et un copie de feuille
Réponses
4
Affichages
661
Oneida
M
  • Question Question
Microsoft 365 Copie image d'une feuille à une autre feuille en VBA
Réponses
3
Affichages
784
Mongo
M
Y
  • Question Question
Microsoft 365 récupérer données de tableau structuré sur une plage
Réponses
2
Affichages
704
jpb388
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
879
GClaire
G
L
  • Question Question
XL 2016 Consolidation de données issues de plusieurs feuilles
Réponses
6
Affichages
827
L_Wa
L
Z
  • Question Question
XL 2019 Probleme Rechercher avec copie et offset en VBA
Réponses
1
Affichages
602
vgendron
M
  • Question Question
Microsoft 365 Imprimer deux zones d'impression provenant de deux onglets sur une seule feuille
Réponses
5
Affichages
706
herve62
C
  • Question Question
XL 2019 1004 sur un ActiveSheet.Paste
Réponses
5
Affichages
663
Cheyenne_2021
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…