Private Sub CommandButton1_Click() 'Ajouter
With [Tableau1] 'tableau structuré
.Columns(3).Insert xlToRight
.Cells(0, 3) = "Total"
.Cells(1, 3) = "=SUMIF(A$1:A2,A2,B$1:B2)"
End With
CommandButton1.Enabled = False
CommandButton2.Enabled = True
ListBox1.RowSource = "Table"
End Sub
Private Sub CommandButton2_Click() 'Effacer
[Tableau1].Columns(3).Delete xlToLeft
CommandButton1.Enabled = True
CommandButton2.Enabled = False
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CommandButton2.Enabled Then CommandButton2_Click
End Sub