Compiler les contenu (texte) de plusieurs feuilles sur une seule
phs987
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
phs987 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
phs987 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je me casse la tête sur un truc qui est peut-être simple mais qui résiste :
J'ai 6 feuilles contenant des listes de données (une ligne de noms de champs, des enregistrements), qui ont la même structure et les mêmes champs
Je veux créer une feuille récap qui reprenne tous les enregistrements les uns sous les autres.
Je travaille sur Excel 2007.
Merci
Je me casse la tête sur un truc qui est peut-être simple mais qui résiste :
J'ai 6 feuilles contenant des listes de données (une ligne de noms de champs, des enregistrements), qui ont la même structure et les mêmes champs
Je veux créer une feuille récap qui reprenne tous les enregistrements les uns sous les autres.
Je travaille sur Excel 2007.
Merci
A voir également:
- Compiler les contenu (texte) de plusieurs feuilles sur une seule
- Regrouper plusieurs feuilles excel en une seule - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Bruler les feuilles de laurier - Guide
- Transcription audio en texte word gratuit - Guide
8 réponses
Bonjour,
Pourquoi joindre une image alors que le fichier aurait été beaucoup plus parlant et utile, surtout...
https://www.cjoint.com/
Pourquoi joindre une image alors que le fichier aurait été beaucoup plus parlant et utile, surtout...
https://www.cjoint.com/
Bonjour DjiDji,
J'ai envoyé une image parce que c'est la seule fonctionnalité que propose le composeur de messages.
Voilà le fichier : https://www.cjoint.com/?0Cetig4q3B6
Merci
phs987
J'ai envoyé une image parce que c'est la seule fonctionnalité que propose le composeur de messages.
Voilà le fichier : https://www.cjoint.com/?0Cetig4q3B6
Merci
phs987
Bonjour
dans RECAP tu a une colonne Feuille je pense qu'il faut la supprimer
tu en pense quoi
A+
Maurice
dans RECAP tu a une colonne Feuille je pense qu'il faut la supprimer
tu en pense quoi
A+
Maurice
Bonjour Maurice et merci,
J'ai tardé un peu à répondre mais c'est parce qu'ici on a presque 12 h de décalage horaire avec la France.
Tes macros tournent impeccablement. Merci beaucoup. Ca donne envie de les comprendre !
Y a juste un truc. L'impression de la page de récap donne un tout petit tableau sur le côté de la feuille :
http://cjoint.com/?3CgjYzasnEC
... alors que celle des pages suivantes est normale. Je ne trouve pas de paramètre caché pour améliorer cette page 1.
pHS
J'ai tardé un peu à répondre mais c'est parce qu'ici on a presque 12 h de décalage horaire avec la France.
Tes macros tournent impeccablement. Merci beaucoup. Ca donne envie de les comprendre !
Y a juste un truc. L'impression de la page de récap donne un tout petit tableau sur le côté de la feuille :
http://cjoint.com/?3CgjYzasnEC
... alors que celle des pages suivantes est normale. Je ne trouve pas de paramètre caché pour améliorer cette page 1.
pHS
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
bonjour
ton format etais comme ca desoler
j'ais mis un format dans ta macro
A+
Maurice
ton format etais comme ca desoler
j'ais mis un format dans ta macro
Sub Recape()
Application.ScreenUpdating = False
Num = 2
Nlig = 1
With Feuil2
.Select
.Rows("2:" & Rows.Count).ClearContents
Call ListOnglet
For F = 2 To .Range("IO" & Rows.Count).End(xlUp).Row
Feuille = .Range("IO" & F).Value
Sheets(Feuille).Select
NumbLig = Cells(Rows.Count, 2).End(xlUp).Row
If NumbLig = 1 Then Exit For
For L = 2 To NumbLig
Range("B" & L).Copy
.Range("B" & Num).PasteSpecial xlPasteValues
.Range("C" & Num).Value = Feuille
Range("C" & L & ":L" & L).Copy
.Range("D" & Num).PasteSpecial xlPasteValues
.Range("A" & Num).Value = Nlig
Nlig = Nlig + 1
Num = Num + 1
Next
Next
.Select
End With
' Ajout -------------------
ActiveSheet.PageSetup.PrintArea = "$B:$M"
' -------------------------
With Application
.ScreenUpdating = True
.CutCopyMode = False
.Goto [A1], True
End With
End Sub
A+
Maurice
Bonjour Maurice,
Désolé ne pas avoir répondu plus tôt mais j'ai eu quelques soucis de santé (pas finis) qui m'ont éloigné de mon ordi. C'est pour ça que j'avais "disparu".
J'ai bien noté la modif mais j'ai voulu aussitôt intégrer tout le listing au lieu d'ajouter simplement les lignes en plus. Mauvaise idée parce que je ne suis pas du tout rôdé avec VBE et les sous dossiers de macros et j'ai loupé mon coup. J'ai bien intégré la nouvelle version de "Recape" mais elle plante en appelant ListOnglet qui ne répond pas.
Bien sûr pas moyen de retrouver le fichier Excel version 1, que j'ai dû écraser avec la version modifiée. Je viens (mais 10 jours plus tard) de tenter de le recharger le sur cjoint.com : il n'y est plus.
Est-ce que tu voudrais bien me le renvoyer ? Merci encore pour le travail initial et pour le dérangement final.
phs987.
Désolé ne pas avoir répondu plus tôt mais j'ai eu quelques soucis de santé (pas finis) qui m'ont éloigné de mon ordi. C'est pour ça que j'avais "disparu".
J'ai bien noté la modif mais j'ai voulu aussitôt intégrer tout le listing au lieu d'ajouter simplement les lignes en plus. Mauvaise idée parce que je ne suis pas du tout rôdé avec VBE et les sous dossiers de macros et j'ai loupé mon coup. J'ai bien intégré la nouvelle version de "Recape" mais elle plante en appelant ListOnglet qui ne répond pas.
Bien sûr pas moyen de retrouver le fichier Excel version 1, que j'ai dû écraser avec la version modifiée. Je viens (mais 10 jours plus tard) de tenter de le recharger le sur cjoint.com : il n'y est plus.
Est-ce que tu voudrais bien me le renvoyer ? Merci encore pour le travail initial et pour le dérangement final.
phs987.