1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Sub Demo_OK_ListObjects()
Dim myTable As ListObject, COL, VE, VA
Set myTable = ActiveSheet.ListObjects("Tableau1")
COL = Array(5, 4, 6, 2, 3, 1) ' Mettre les colonnes dans l'ordre voulues
Application.ScreenUpdating = False
With myTable
VE = Application.Index(.HeaderRowRange.Value, Evaluate("ROW(1:" & .HeaderRowRange.Rows.Count & ")"), [COL])
VA = Application.Index(.DataBodyRange.Formula, Evaluate("ROW(1:" & .DataBodyRange.Rows.Count & ")"), [COL])
.HeaderRowRange.Value = VE
.DataBodyRange.Formula = VA
.ListColumns("Date").DataBodyRange.NumberFormat = "dd/mm/yyyy"
End With
Application.ScreenUpdating = True
End Sub |
Partager