XL pour MAC consolider plusieurs tableaux excel en un seul via macro

inouuuu à dit:

Bonjour , tres bon tuto, mais j'ai un petit probleme pour refaire ce tuto, en fait j'ai 12 feuilles des tableaux sur les feuilles 2,3,4,5,6 uniquement. Au moment de refaire ce tuto, a l'execution, il m'affiche l'erreur 1004 ( au niveau de ActiveSheet.Paste)

Besoin de coup de pousse
Voici mon code:
Dim i As Integer
Dim j As Integer
Dim DerniereLigne As Integer
Dim lastRowConsolidation As Integer
'Procedure permettant d'effacer toutes les donnees de la feuille consolidation
Sub effacerDonnees()
Worksheets("CONSOLIDATION").Select
Rows("16:1048575").Select
Selection.Clear Range("B16").Select
End Sub
'Procedure permettant la consolidation des feuilles du classeur
Sub consolider()
Application.ScreenUpdating = False
effacerDonnees
'Boucle permettant de lire toutes les feuilles a consolider
For j = 2 To 6
Sheets(j).Select
DerniereLigne = Range("B1048575").End(xlUp).Row
For i = 16 To DerniereLigne
Sheets(j).Select
Rows(i).Select
Selection.Copy
Sheets("CONSOLIDATION").Select
lastRowConsolidation = Range("B1048575").End(xlUp).Row + 1
Cells(lastRowConsolidation, 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next i
Next j
Application.ScreenUpdating = True
MsgBox "La consolidation est terminee.", vbOKOnly, vbInformation, "Information"
End Sub

**debutant en vba
fichier joint

Cliquez pour agrandir...

'Procedure permettant d'effacer toutes les donnees de la feuille consolidation
Sub effacerDonnees()
Worksheets("CONSOLIDATION").Rows("16:" & Worksheets("CONSOLIDATION").Rows.Count).Clear
End Sub
'Procedure permettant la consolidation des feuilles du classeur
Sub consolider()
    Dim j&
    Application.ScreenUpdating = False
    Call effacerDonnees
    'Boucle permettant de lire toutes les feuilles a consolider
    For j = 2 To 6
        With Sheets(j)
            .Range("B16:B" & .Range("b" & .Cells.Rows.Count).End(xlUp).Row).Copy
        End With
        With Sheets("CONSOLIDATION")
            .Paste .Cells(.Range("b" & .Cells.Rows.Count).End(xlUp).Row + 1, 2)
        End With
    Next j
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "La consolidation est terminee.", vbOKOnly + vbInformation, "Information"
End Sub

inouuuu à dit:

Bonjour jacky67, j'espere que vous aller bien.
Ta structure passe bien mais le soucis en est que a chaque fois que je fasse l'extraction, apres effacement des donnes, la nouvelle extraction ne commence pas dans la cellule B16 ; au commence apres le dernier tableau de l'extraction precedente. (j'espere que tu comprends ce que je veux dire)
Deuxièmement, j'ai refais l'extraction 3 a 4 fois mais a partir de la deuxième jusqu'a la quatrième, juste la colonne B s'affiche.

Et j'aimerais savoir aussi si au moment ou la Boucle permettant de lire toutes les feuilles a consolider et chaque passage d'une feuille, la procedure detecte tous les tableaux se trouvant sur la feuille ( autrement dit les feuilles 3 et 6 peuvent contenir 4 voire 5 tableaux a l'interieur) et les extraire dans le tableau consolidé.

Cordialement.......

Cliquez pour agrandir...

inouuuu à dit:

Merci encore Jacky67 du retour,
voici le fichier joint;
et dans le but d'approfondir , j'avais commencee a creer un formulaire de facturation client et les stocker dans une feuille et l'imprimer en PDF

Cordialement

Cliquez pour agrandir...