XL 2019 Export cellule + nom feuille

[Arnaud59000]

Hello tout le monde !

Bonne année pour commencer !

J'ai besoin de vous,
J'ai un fichier avec plusieurs feuilles (beaucoup trop), et je souhaiterai extraire dans une NOUVELLE feuille chaque colonne A et en colonne B mettre le nom de la feuille d'où la donnée provient.

Pas facile de pouvoir mettre un fichier en exemple. Mais cela donnerait :
A B
14589 NOM FEUILLE 1
15542 NOM FEUILLE 2
......

Avec une macro qui SI POSSIBLE met le tout en dessous (détection de cellule vide).

Merci de votre aide par avance !

 

[sylvanu]

Bonjour Arnaud,
Un essai en PJ avec ce que j'ai compris, avec :

Sub Consolide()
    Dim L%, i%, DL%
    L = 1
    [A:B].ClearContents
    Application.ScreenUpdating = False
    For Each F In Worksheets
        If F.Name <> "Synthèse" Then
            DL = Sheets(F.Name).Range("A65500").End(xlUp).Row
            For i = 1 To DL
                Cells(L, "A") = Sheets(F.Name).Cells(i, "A")
                Cells(L, "B") = F.Name
                L = L + 1
            Next i
        End If
    Next F
End Sub

Surement optimisable, mais dépend de votre fichier.

 

[Arnaud59000]

Hello @sylvanu c'est parfait !

Ca fonctionne à merveille !