Combiner&trier

Bonjour le forum

j'explique mon problème, dans un fichier excel j'ai trois feuilles

feuille 1 : un tableau1 de 5 colonnes fixes, et d'un nombre variable de ligne ( chaque jours j'ajoute des lignes)

feuille 2 : un tableau2 de 5 colonnes fixes ( les mêmes colonnes que le tableau1) , et d'un nombre variable de lignes aussi

feuille 3: un tableau global qui regroupe les deux premiers tableau triés suivant la colonne A.

j'ai crée un bouton dans la feuille 3 je souhaite que a chaque fois que j'appui dessus, le tableau 3 combine les lignes du tableau 1 et 2 suivant un ordre croissant de la colonne A

c'est beaucoup plus claire en consultant mon fichier çi joint.. merci d'avance

Bonjour,

je ne vais pas télécharger le fichier ... mais inspire toi de cela :

  Dim lDest As Long
    'on efface le feuille 3
    ThisWorkbook.Sheets("Feuil3").Cells.ClearContents

    'Copy le contenu de la feuille 1
    ThisWorkbook.Sheets("Feuil1").Range("A1").CurrentRegion.Copy ThisWorkbook.Sheets("Feuil3").Range("A1")

    'Calcule ligne destination feuille 2 dans feuille 3

    lDest = ThisWorkbook.Sheets("Feuil3").Range("A1").CurrentRegion.Rows.Count

    'Copy le contenu de la feuille 2
    ThisWorkbook.Sheets("Feuil2").Range("A1").CurrentRegion.Copy ThisWorkbook.Sheets("Feuil3").Cells(lDest + 1, 1)

Bonjour,

Sub Combiner()
    Dim n1%, n2%
    Application.ScreenUpdating = False
    With Worksheets("Combine")
        If .AutoFilterMode Then
            If .FilterMode Then .ShowAllData
        End If
        n1 = .Cells(.Rows.Count, 1).End(xlUp).Row - [Combi].Row + 1
    End With
    [Combi].Resize(n1, 5).ClearContents
    n1 = [Tablo1].Rows.Count
    [Combi].Resize(n1, 5).Value = [Tablo1].Value
    n2 = [Tablo2].Rows.Count
    [Combi].Cells(n1 + 1, 1).Resize(n2, 5).Value = [Tablo2].Value
    [Combi].Resize(n1 + n2, 5).Sort key1:=[Combi].Cells(1, 1), order1:=xlAscending, Header:=xlNo
End Sub

Nb- les tableaux 1 et 2 sont nommés Tablo1 et Tablo2 en dynamique (voir gestionnaire de noms). La première cellule du tableau combiné est nommée Combi (A5).

Cordialement.

merci pour votre aide

j'ai essayé ce code, le tableau 3 s'efface mais rien ne s'affiche à la place

Sur le fichier modèle ? Quel code ?