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

Bonjour,

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

Bonjour

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

A+
Maurice

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

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

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.

Bonjour
dur je pense que ca doit etre ca

http://cjoint.com/?3Csq0lYApf8

A+
Maurice

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