XL 2019 Export cellule + nom feuille

Arnaud59000

XLDnaute Nouveau
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 !
 
Solution
Bonjour Arnaud,
Un essai en PJ avec ce que j'ai compris, avec :
VB:
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.

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Arnaud,
Un essai en PJ avec ce que j'ai compris, avec :
VB:
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.
 

Pièces jointes

  • Classeur1.xlsm
    18.7 KB · Affichages: 2

Discussions similaires

Réponses
26
Affichages
762

Statistiques des forums

Discussions
311 720
Messages
2 081 923
Membres
101 840
dernier inscrit
SamynoT