Bonjour à tous,
Je chercher à copier une ligne d'un tableau et la coller dans un autre tableau sans écraser les lignes précédentes. J'ai fait des cherches et j'ai élaboré un bout de code mais qui ne fonctionne pas
Pouvez vous m'aider?
Dim ligne_destination As Integer
ligne_destination = Destination.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveWindow.ScrollWorkbookTabs Sheets:=4
Sheets("TRIAGE").Select
Selection.Copy
Application.WindowState = xlNormal
Windows("BD.xlsx").Activate
Sheets("ABB").Select
ligne_destination.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.WindowState = xlNormal
Windows("essai copier coller.xlsm").Activate
Windows("PLANIF INTERS 2022 V1 RESEAU.xlsm").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=-4
End Sub
Je chercher à copier une ligne d'un tableau et la coller dans un autre tableau sans écraser les lignes précédentes. J'ai fait des cherches et j'ai élaboré un bout de code mais qui ne fonctionne pas
Pouvez vous m'aider?
Dim ligne_destination As Integer
ligne_destination = Destination.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveWindow.ScrollWorkbookTabs Sheets:=4
Sheets("TRIAGE").Select
Selection.Copy
Application.WindowState = xlNormal
Windows("BD.xlsx").Activate
Sheets("ABB").Select
ligne_destination.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.WindowState = xlNormal
Windows("essai copier coller.xlsm").Activate
Windows("PLANIF INTERS 2022 V1 RESEAU.xlsm").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=-4
End Sub
Dernière modification par un modérateur: