Fusionner deux colonnes de deux tables différentes

Bonjour,

Je cherche à réunir deux colonnes (contenant toutes deux des dates et présentes dans deux feuilles différentes du classeur Excel) pour en former une seule qui contiendrait toutes les dates des deux colonnes classées dans l'ordre chronologique peu importe la redondance des dates. J'ai entendu parler de la fonction RECHERCHEV() mais elle n'est pas appropriée à mon cas. Auriez-vous des pistes de solution pour moi ?

Merci d'avance,

Cordialement,

Bonjour. Bienvenue sur le Forum

Auriez-vous des pistes de solution pour moi ?

En l'absence de fichier, Oui, PETITE.VALEUR

Cordialement

Ah désolé, voici le fichier. En fait j'aimerais pouvoir fusionner les deux tableaux (qui ont chacun une colonne date et référence) de deux feuilles différentes en un seul tableau sur une 3ème feuille et trier la date selon l'ordre chronologique.

Donc ça donnerait quelque chose du genre :

Date Projet

31/09/2013 A09545

01/10/2013 CDF548

05/10/2013 A09458

Bonjour

Avec une macro VBA et un bouton associé

Cordialement

Merci mais le problème c'est que dans mon fichier, les cellules que je veux copier contiennent des références à d'autres cellules qui ne sont pas copiés avec donc ça donne des #VALEUR!

Bonjour

et....comment devinons-nous?

1) Qu'il y a des formules.

2) Quelles sont ces formules?

Cordialement

Alors en fait le fichier que j'ai mis ci-joint est une version light de mon plus gros fichier (qui contient des données confidentielles de mon entreprise). Les formules sont généralement assez basiques : du genre C2=ARRONDI.SUP(A2*B2;0), etc...

Je suis désolé, j'ai oublié de le mentionner avant.

Bonjour

Il me paraît difficile de poursuivre sans davantage d'éléments.

Peut-être pourrais-tu remplacer les données confidentielles par d'autres, en laissant les formules?

Cordialement

Bonjour,

J'ai trouvé une solution à mon problème. Il suffit de coller uniquement les valeurs grâce à un PasteSpecial.

Merci de votre aide et voici ce que donne finalement la fusion :

Sub Fusion()
    Set feuille1 = Worksheets("feuil1")
    Set feuille2 = Worksheets("feuil2")
    Set feuille3 = Worksheets("feuil3")
    ligne = 0

    'On supprime toutes les lignes utilisées du tableau sauf l'en-tête
    For ligne = 2 To Split(feuille3.UsedRange.Address, "$")(4)
        feuille3.Rows(ligne).Delete Shift:=xlDown
    Next

    'On prend en compte l'onglet "Feuil1"
    With feuille1
        'On copie la plage des cellules et la colle dans A1 de l'onglet "Feuil3"
        .Range("A3:E22").Copy feuille3.Range("A1")
    End With 'fin de la prise en compte de l'onglet "Feuil1"

    With feuille2 'On prend en compte l'onglet "Feuil2"
        'On copie la plage des cellules et la colle dans la première cellule vide de la colonne A de l'onglet "Feuil3"
        .Range("A2:E26").Copy
        'on colle uniquement les valeurs de cellules
        feuille3.Cells(Application.Rows.Count, 1).End(xlUp).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With 'fin de la prise en compte de l'onglet "Feuil2"

    With feuille3 'On prend en compte l'onglet "Feuil3"
        'tri croissant par rapport à la date (A1)
        .Range("A2").CurrentRegion.Sort key1:=.Range("A2"), Header:=xlYes
    End With 'fin de la prise en compte de l'onglet "Feuil3"
End Sub