Comment ajouter une nouvelle ligne de valeur "fixe" dans un tableau

Question

Je travaille sur une feuille de calcul Excel pour les finances personnelles mensuelles. Ma question est pouvez-vous créer un bouton ActiveX qui va ajouter une ligne fixe au bas d'une table lorsque vous appuyez sur?

Le tableau se présente comme suit:

Date   Description Amount  Account 
10/2/2017 Rent   $440.00 Checking(NF) 
10/3/2017 Groceries     Checking(TD) 
10/3/2017 Transfer  $140.00 Checking(NF) 
10/3/2017 Transfer  ($140.00) Credit Card(NF) 

Je cherchais à ajouter une ligne fixe de: =TODAY() Rent $440.00 Checking(NF) au bas du tableau ci-dessus.

Merci.

Answer 1

Utilisez le code suivant. Vous pouvez ajouter un bouton de commande à la feuille avec le pivot et associer le bouton avec le code suivant:

Sub FindTableLastRow() 
Dim wb As Workbook 
Dim ws As Worksheet 
Dim tbl As ListObject 
Dim lRow As Long 
Dim startCol As String * 1 
Dim AddressArr() As String 

Set wb = ThisWorkbook 
Set ws = wb.Sheets(2) 'Adjust this to your sheet name with the table in. 
Set tbl = ws.ListObjects("Table1") 'Adjust to your table name 

AddressArr = Split(tbl.Range.Address, "$") 
startCol = AddressArr(1) 
lRow = AddressArr(4) 

ws.Cells(lRow + 1, startCol).FormulaR1C1 = Format(Date, "\ dd\/mm\/yyyy\") 
ws.Cells(lRow + 1, startCol).Offset(0, 1).Value = "Rent" 
ws.Cells(lRow + 1, startCol).Offset(0, 2).Value = "$440.00" 
ws.Cells(lRow + 1, startCol).Offset(0, 3).Value = "Checking(NF)" 

End Sub 

Il retourne une chaîne pour la date il apparaît dernier dans le pivot et quand vous triez le plus ancien plus récent sur la colonne Date.