Création de liste

Bonjour à tous,

est ce qu'il existe une solution pour que dans un des onglet, il y ait un récap des onglets précédents ?

Je m'explique, je souhaiterais que les données C19:E19 de toutes les feuilles soient regroupées en un seul et même onglet (feuille 2) et qu'elle se suivent les unes sous les autres avec devant chaque ligne le nom de la cellule B13 et B14 et B16. si je ne suis pas claire, je met en lien mon fichier à travailler si il ya des courageux.

En fait, ce que je recherche c'est une macro qui pourait automatiser tout ça.

Merci de votre aide.

https://www.excel-pratique.com/~files/doc2/base_de_donnee.xls

https://www.excel-pratique.com/~files/doc2/base_de_donnee.xls

Bonjour,

essaie avec ce code :

Sub recap()
With Sheets("Feuil2")
    For Each sh In Sheets
        If sh.Name <> "Sommaire" And sh.Name <> "Feuil2" Then
            derlig = .[A65000].End(xlUp).Row + 1
            .Cells(derlig, 1).Value = sh.Range("B13").Value
            .Cells(derlig, 2).Value = sh.Range("B14").Value
            .Cells(derlig, 3).Value = sh.Range("B16").Value
            sh.Range("C19:E19").Copy .Cells(derlig, 4)
        End If
    Next sh
End With
End Sub

Bonne journée

Bonjour et bienvenue,

Avec ce code :

Sub Transfert()
'Macro Dan pour papychang le 18/05/2009
Dim ws As Worksheet
Dim lig As Integer
With Sheets("Feuil2")
If Not IsEmpty(.Range("A14")) Then
    .Range("A14:F" & Range("A65536").End(xlUp).Row).ClearContents
End If
For Each ws In ThisWorkbook.Sheets
lig = .Range("A65536").End(xlUp).Row + 1
If ws.Name <> "Sommaire" And ws.Name <> "Feuil2" Then
    .Cells(lig, 1) = ws.Range("B13")
    .Cells(lig, 2) = ws.Range("B14")
    .Cells(lig, 3) = ws.Range("B16")
    ws.Range("C19:E19").Copy Destination:=.Cells(lig, 4)
End If
Next
End With
End Sub

Amcialement

Dan

PS : si ton pb est solutionné n'oublie pas de mettre RESOLU. explications --> https://forum.excel-pratique.com/viewtopic.php?t=13

Edit Dan : Oups désolé Felix. Je n'avais pas vérifié que quelqu'un était déjà passé.

Différence : le code supprime les données dans la feuille 2 avant de les recompléter sur base des nouvelles infos éventuelles. A voir si c'est cela que tu voulais obtenir.

Wawoo ! c'est assez énorme !!!

MERCI BEAUCOUP ça marche nickel !

Merci

Sinon je constate pas de différence dans le fonctionnement des deux macros sauf dans le code. Afin de me perfectionner, est ce que vous pouvez m'expliquer la différence ?

merci encore !!!