Refresh without deleting

[clemlcfc]

I have in my excel worksheet a macro that gets from a page 2 values from different columns and concats them together in another ****.

this is the code i use :

Sub oui(wsName1$, wsName2$)
Dim Tbl As ListObject, C As Range, Vec, Tmp
Dim ws1 As Worksheet, ws2 As Worksheet

Set ws1 = ThisWorkbook.Worksheets(wsName1)
Set ws2 = ThisWorkbook.Worksheets(wsName2)

    Set Tbl = ws1.Range("A1").ListObject
    If Tbl.ListRows.Count > 0 Then Tbl.DataBodyRange.Delete
    With ws2
        For Each C In .Range("C2", .Range("C1").End(xlDown))
            Vec = Split(C.Value, ",")
            For Each Tmp In Vec
                Tbl.ListRows.Add.Range.Columns(1) = WorksheetFunction.Trim(Tmp) & " / " & C(, -1)
            Next
        Next
    End With
End Sub


'usage
Sub Test()
Call oui("Feuil2", "Feuil1")
End Sub

The problem i have, as you can see in my file (further down), is that if i already add a couple and write new ones it will delete the previous one.

In my sheet, Jane / Football is already shown and commented and if i click on the button to add the new ones it will delete what i add previously.

How can i fix this ? thank you

here is my file : macroproblem.xlsm

[CheeseSandwich]

Try it as below:

Sub oui(wsName1$, wsName2$)
Dim Tbl As ListObject, C As Range, Vec, Tmp
Dim ws1 As Worksheet, ws2 As Worksheet

Set ws1 = ThisWorkbook.Worksheets(wsName1)
Set ws2 = ThisWorkbook.Worksheets(wsName2)

    Set Tbl = ws1.Range("A1").ListObject
    'If Tbl.ListRows.Count > 0 Then Tbl.DataBodyRange.Delete
    With ws2
        For Each C In .Range("C2", .Range("C1").End(xlDown))
            Vec = Split(C.Value, ",")
            For Each Tmp In Vec
                Tbl.ListRows.Add.Range.Columns(1) = WorksheetFunction.Trim(Tmp) & " / " & C(, -1)
            Next
        Next
    End With
End Sub

[clemlcfc]

Yes this is what i tried before. It keeps the one i already wrote but the problem is that it re-adds it so i have it twice. I don't know if it is possible to fix and add only the new one ?

[CheeseSandwich]

Do you hope to build on the data in'Feuil1' and have it process new entries OR do you change the data completely in 'Feuil1' each time before you run it?

[clemlcfc]

I could write Jane / 001 / Football on 'Feuil1' then process to click on the button to display 'Jane / Football' on 'Feuil2' and then later come back to 'Feuil1' to add more data (without deleting Jane's row)

[CheeseSandwich]

One option could be to remove duplicates from the final table after the macro has run:

Sub oui(wsName1$, wsName2$)
Dim Tbl As ListObject, C As Range, Vec, Tmp
Dim ws1 As Worksheet, ws2 As Worksheet

Set ws1 = ThisWorkbook.Worksheets(wsName1)
Set ws2 = ThisWorkbook.Worksheets(wsName2)

    Set Tbl = ws1.Range("A1").ListObject
    With ws2
        For Each C In .Range("C2", .Range("C1").End(xlDown))
            Vec = Split(C.Value, ",")
            For Each Tmp In Vec
                Tbl.ListRows.Add.Range.Columns(1) = WorksheetFunction.Trim(Tmp) & " / " & C(, -1)
            Next
        Next
    End With
    Range("Tableau2[#All]").RemoveDuplicates 1, xlYes
End Sub

[clemlcfc]

Works perfectly thank you so much !!