Consolidation de deux feuilles

Bonjour à tous,

je viens vers vous car je suis debutant et meme plus en vba et dans le cas que je vais vous soumettre, et le peu d'experience que je possede, il m'est impossible de trouver la solution... j ai pourtant pas mal cherche sur le net...

j ai donc un classeur dans lequel il y a trois feuilles Les deux premieres me servent a enregistrer differentes donnees, la troisieme que j'ai nommé consolidation doit ou enfin plutot (j'aimerais que cette puisse copier les deux feuilles )

en cherchant j'ai bien trouvé des lignes de codes et meme une super video traitant de la consolidation, j ai voulu l'adapter à mon classeur, et malheureusement sans succes...

info: je suis sous excel 2010

je serai donc super heureux de votre aide et pour ceux qui participeront, je vous en remercie par avance...

bonnes fetes à tous

Jean-noel

ps : je joins à ce post un fichier correspondant à mes dires.... encore merci

voici les lignes de code que j'ai essayé de m'approprier:

Dim i As Integer, j As Integer

Dim DerniereLigne As Integer

Dim LastRowConsolidation As Integer

'Procédure permettant d'éffacer toutes les données de la feuille Consolidation

Sub EffaceDonnees()

Worksheets("Consolidation").Select

Rows("2:1048576").Select

Selection.Clear

Range("A2").Select

End Sub

'Procédure permettant la consolidation des feuilles du classeur

Sub Consolider()

Application.ScreenUpdating = False

EffaceDonnees

'Boucle permettant de lire toutes les feuilles à consolider

For j = 1 To 2 'Parcours des feuilles de N°1 À n 2

Sheets(j).Select

DerniereLigne = Range(A1048576).End(x1Up).Row

For i = 2 To DerniereLigne 'Parcours des lignes de chaque Table

Sheets(j).Select

Rows(i).Select

Selection.Copy

Sheets("Consolidation").Select

LastRowConsolidation = Range(A1048576).End(x1Up).Row + 1

Cells(LastRowConsolidation, 1).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Next i

Next j

Application.ScreenUpdating = True

MsgBox "La consolidation est terminée...", vbcKOnly + vbInformation, "Information"

End Sub

Bonjour,

Un exemple.

Les données sont mises sous forme de tableaux.

Cdlt.

bonjour,

une proposition

edit : Bonjour Jean-Eric, collision !

'Procédure permettant la consolidation des feuilles du classeur

Sub Consolider()
    Application.ScreenUpdating = False
    EffaceDonnees

    Set wsc = Sheets("consolidation")
    dlc = wsc.Cells(Rows.Count, 1).End(xlUp).Row + 1

    'Boucle permettant de lire toutes les feuilles à consolider
    For Each ws In Worksheets

        With ws
            If .Name <> "CONSOLIDATION" Then
                dl = .Cells(Rows.Count, 1).End(xlUp).Row
                .Range("A2").Resize(dl, 3).Copy wsc.Cells(dlc, 1)
                dlc = dlc + dl - 1
            End If
        End With
    Next ws
    Application.ScreenUpdating = True
    MsgBox "La consolidation est terminée...", vbcKOnly + vbInformation, "Information"
End Sub