compiler les contenu (texte) de plusieurs feuilles sur une seule Fermé

Question

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

DjiDji59430 · Answer

Bonjour,

Pourquoi joindre une image alors que le fichier aurait été beaucoup plus parlant et utile, surtout...

https://www.cjoint.com/

phs987 · Answer

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

Maurice · Answer

Bonjour

dans RECAP tu a une colonne Feuille je pense qu'il faut la supprimer
tu en pense quoi

A+
Maurice

Maurice · Answer

Bonsoir
retour du fichier avec une Macro
http://cjoint.com/?3CewgyvWY9q 
A+
Maurice

Maurice · Answer

bonjour
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

phs987 · Answer

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.

Maurice · Answer

Bonjour
dur je pense que ca doit etre ca

http://cjoint.com/?3Csq0lYApf8 

A+
Maurice

phs987 · Answer

Bonjour/bonsoir Maurice,

C'est tout bon, ça marche super ! faut vraiment que j'apprenne à faire ça !

Merci beaucoup. Ça va vraiment me simplifier la vie.
Bonne soirée.
phs

Compiler les contenu (texte) de plusieurs feuilles sur une seule

8 réponses

Discussions similaires