XL 2019 Alimenter des tableaux

Sub ajout()

Dim wk_fichier As Workbook
Dim ws_operations As Worksheet
Dim ws_entrees As Worksheet
Dim ws_acces As Worksheet

'définier variables fichiers et onglets
Set wk_fichier = ActiveWorkbook
Set ws_operations = wk_fichier.Worksheets("Opérations")
Set ws_entrees = wk_fichier.Worksheets("Entrées")
Set ws_acces = wk_fichier.Worksheets("ACCES")

'copier coller cellules
DLigEnt = ws_entrees.Range("B65536").End(xlUp).Row + 1
ws_entrees.Cells(DLigEnt, 2) = ws_operations.Cells(6, 5)
ws_entrees.Cells(DLigEnt, 3) = ws_operations.Cells(6, 6)
ws_entrees.Cells(DLigEnt, 4) = ws_operations.Cells(6, 7)
ws_entrees.Cells(DLigEnt, 5) = ws_operations.Cells(11, 5)
ws_entrees.Cells(DLigEnt, 6) = ws_operations.Cells(15, 5)
ws_entrees.Cells(DLigEnt, 7) = ws_acces.Cells(9, 2)


End Sub

Sub retrait()

Dim wk_fichier As Workbook
Dim ws_operations As Worksheet
Dim ws_sorties As Worksheet
Dim ws_acces As Worksheet

'définier variables fichiers et onglets
Set wk_fichier = ActiveWorkbook
Set ws_operations = wk_fichier.Worksheets("Opérations")
Set ws_sorties = wk_fichier.Worksheets("Sorties")
Set ws_acces = wk_fichier.Worksheets("ACCES")

'copier coller cellules
DLigSor = ws_sorties.Range("B65536").End(xlUp).Row + 1
ws_sorties.Cells(DLigSor, 2) = ws_operations.Cells(6, 5)
ws_sorties.Cells(DLigSor, 3) = ws_operations.Cells(6, 6)
ws_sorties.Cells(DLigSor, 4) = ws_operations.Cells(6, 7)
ws_sorties.Cells(DLigSor, 5) = ws_operations.Cells(11, 5)
ws_sorties.Cells(DLigSor, 6) = ws_operations.Cells(15, 5)
ws_sorties.Cells(DLigSor, 7) = ws_acces.Cells(9, 2)


End Sub