2 Tableaux en 1

Bonjour à tous ,

Je souhaiterais savoir comment je peux faire pour obtenir un seul tableau reprenant les 2 qui sont dans le fichier que je vous joins. L'idée est de pouvoir travailler sur 1 seul tableau qui regrouperait les informations des 2 autres mais sans répéter les lignes communes.

Vous en remerciant par avance.

Bonjour Tesco 35,

Pour moi, il suffit de réunir toutes les données dans une même feuille, d'insérer une colonne pour y mettre soit DOLMAR soit JARDIN sur chaque ligne, et ensuite utiliser les filtres pour travailler soit sur DOLMAR, soit sur JARDIN, le cas échéant...

Cordialement, Daniel

Bonjour,

Tu veux dire fusionner les deux et éliminer les doublons ?

Sur quelle(s) colonne(s) se définissent les doublons ?

Cordialement.

Bonjour ,

Oui voilà le bon terme c'est 'Fusionner' les 2 tableaux en 1 - La colonne qui va définir les doublons est la colonne 'A' qui correspond au Code client.

Merci

bonjour,

L'idée c'est de copier toutes les données de la feuille 2 vers la feuille 1

Ensuite dans le ruban Données choisir Supprimer les doublons en désélectionnant toutes les colonnes sauf la A

A+

Bonjour ,

Merci a tous pour vos réponses.

Galopin 01 ta solution me va très bien.

A++

Bonjour,

Une proposition à étudier.

ALT F8, et exécuter la procédure Consolidate_Data

Cdlt.

Bonjour,

Sub Fusionner()
    Dim ws As Worksheet, n%, nn%
    Application.ScreenUpdating = False
    Worksheets("JARDIN").Copy after:=Worksheets(Worksheets.Count)
    Set ws = ActiveSheet
    ws.Name = "Fusion"
    nn = ws.Cells(Rows.Count, 1).End(xlUp).Row
    With Worksheets("DOLMAR")
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        ws.Range("A" & nn + 1).Resize(n - 1, 12).Value = .Range("A2:L" & n).Value
    End With
    nn = nn + n - 1
    ws.Range("A1:L" & nn).RemoveDuplicates 1, xlYes
    n = ws.Cells(Rows.Count, 1).End(xlUp).Row
    With ws.Range("A1:L" & n).Borders
        .LineStyle = xlContinuous: Weight = xlThin
    End With
End Sub

Cordialement.