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

Microsoft 365 Copier les mêmes lignes venant de différentes feuilles dans une feuille "Summary"

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

liod21

XLDnaute Nouveau
Bonjour à tous,

Je voudrais une macro qui me permet de copier les lignes allant de J à R (qui se trouvent sur la ligne Total) de chaque feuille et me les mets dans une feuille sumamry.


Peut-être trouvé une méthode qui dit " Dans chaque feuille, sur la ligne où il y a écrit Total, tu me copies les résultats allant de la colonne J à la colonne R et tu les mets dans la feuille summary dans la colonne B à J" ou dire " Sur la dernière ligne de donnée de chaque feuille (ça sera celle de Total), tu me copies les résultats allant de la colonne J à la colonne R et tu les mets dans la feuille summary dans la colonne B à J". Dans les 4 images que j'ai mis, mon fichier de base se compose des 3 premières images qui comprend les feuilles : Summary;Sheet2 et Sheet3; et ce que je voudrais se trouve sur la dernière photo "What I want".

Merci à vous,
 
Trier par date Trier par votes
Bonjour liod21, Robert,

Le problème a été posé sur l'autre fil et j'y ai répondu :

https://excel-downloads.com/threads...ur-mes-feuilles-excel.20069582/#post-20526502

VB: 
Sub Summary()
Dim F As Worksheet, lig&, w As Worksheet, total As Range
Set F = Sheets("Summary") 'feuille de destination, à adapter
lig = 1
Application.ScreenUpdating = False
F.Cells(lig + 1, 2).Resize(F.Rows.Count - lig, 9).ClearContents 'RAZ
For Each w In Worksheets
    Set total = w.Columns("I").Find("Total", , xlValues, xlWhole)
    If Not total Is Nothing Then
        lig = lig + 1
        F.Cells(lig, 2).Resize(, 9) = total(1, 2).Resize(, 9).Value
    End If
Next
With F.UsedRange: End With 'actualise la barre de défilement verticale
End Sub
A+
 
Vote positif 0 Vote négatif
Top, merci beaucoup !
 
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

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Utiliser la même macro dans des feuilles différentes
2 3
Réponses
35
Affichages
248
cathodique
  • Question Question
Microsoft 365 Bug liste de validation sur fichier de menu/Repas
2
Réponses
17
Affichages
503
ChTi160
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
518
sylvanu
K
  • Question Question
XL 2010 copier le contenu de plusieurs feuilles sur une seule
Réponses
3
Affichages
32
sylvanu
E
  • Résolu(e)
Autres série de feuilles à incrémenter dans un tableau
Réponses
9
Affichages
56
Etienne
E
  • Résolu(e)
XL 2019 Extraction de données dans une autre plage !
Réponses
6
Affichages
324
Caninge
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
44
fanch55
S
  • Question Question
XL 2016 Transposer colonnes sur lignes
2 3
Réponses
32
Affichages
1 K
soumus
S
L
  • Résolu(e)
XL 2021 Tableau de suivi des heures supplémentaires et récupérations
Réponses
5
Affichages
205
C'est papy Mougeot !
  • Question Question
XL 2010 Copier cellule avec mise en forme d’une feuille sur l’autre
Réponses
12
Affichages
536
jeanmi
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
72
sousou
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
283
mromain
  • Question Question
XL 2021 Verifier les doublons dans feuille avant validation
Réponses
11
Affichages
122
cathodique
M
  • Question Question
XL 2019 Copier des lignes les unes a la suite des autres dans une autre feuille sous conditions et seulement certaines colonnes
Réponses
7
Affichages
663
MGH
M
  • Résolu(e)
XL 2013 (RESOLU) Copier Colonne vers ligne
Réponses
6
Affichages
339
chaelie2015
N
  • Question Question
Microsoft 365 Alimenter une Combo Active X inséré dans une feuille de calcul
Réponses
3
Affichages
185
NONO14
N
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
612
fanfan38
R
  • Question Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
647
Renaud22
R
  • Question Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
182
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…