Fusionner deux listes qui se trouvent sur deux feuilles séparées

[AthessWinbug]

Bonjour à tous,

Dans le fichier ci-joint
Regarde la pièce jointe test.xlsm

Se trouve 3 feuilles "Menu", "Relevé Fred" et "Relevé Nico".
Dans les deux feuilles "relevé fred" et "relevé nico", se trouve un tableau identique avec des données différentes.

Mon souhait, car c'est à ce moment là que je sèche totalement, est de réunir ces deux tableaux en un seul tableau qui celui-ci se trouvera dans la feuille "Menu" avec la particularité de réunir les données de la feuille "relevé fred" et la feuille "relevé nico".

J'espère avoir été clair.

Et je vous remercie d'avance de prendre un peu de votre temps (c'est un minimum).

 

[CISCO]

Re : Fusionner deux listes qui se trouvent sur deux feuilles séparées

Bonjour

Tu as combien de ligne dans ton fichier réel ?

@ plus

 

[AthessWinbug]

Re : Fusionner deux listes qui se trouvent sur deux feuilles séparées

Bonjour,

Bon j'ai résolu le problème avec une macro

Sheets("Feuil1").Select
    ActiveSheet.Unprotect
   Sheets("Feuil1").[A1].CurrentRegion.Offset(1, 0).Clear
   For Each s In Array("1", "2", "3", "4", "5", "6", "7", "8", "9")
      Nlig = Sheets(s).[A100000].End(xlUp).Row - 1
      Ncol = Sheets(s).[A1].CurrentRegion.Columns.Count
      [A65000].End(xlUp).Offset(1, Ncol).Resize(Nlig, 1).Value = Sheets(s).Name
      [A65000].End(xlUp).Offset(1, 0).Resize(Nlig, Ncol).Value = _
      Sheets(s).[A2].Resize(Nlig, Ncol).Value
   Next s
      Range("A2:H100000").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range( _
        "A2:A100000"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A2:H100000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

merci encore ;-)