Bonjour,
Une proposition VBA (Tableaux structurés et TCD).
Pour des besoins futurs ?
Cdlt.
Public Sub CreateTable()
Dim lo As ListObject
Dim pt As PivotTable
Dim rngGroup As Range
Dim tbl, arr()
Dim i As Long, j As Long, k As Long
Application.ScreenUpdating = False
tbl = Range("Locations").Value
Set lo = Range("Locations_immatriculations").ListObject
Set pt = Worksheets("TCD").PivotTables(1)
If Not lo.DataBodyRange Is Nothing Then lo.DataBodyRange.Delete
pt.PivotCache.Refresh
For i = LBound(tbl) To UBound(tbl)
For j = CLng(tbl(i, 3)) To CLng(tbl(i, 2)) Step -1
ReDim Preserve arr(2, k + 1)
arr(0, k) = tbl(i, 1)
arr(1, k) = j
k = k + 1
Next j
Next i
If k > 0 Then
lo.InsertRowRange.Cells(1).Resize(k, 2).Value = Application.Transpose(arr)
With pt
.PivotCache.Refresh
Set rngGroup = .PivotFields("Date").DataRange
rngGroup.Cells(1).Group Start:=True, End:=True, Periods:=Array(False, False, False, _
False, False, False, True)
End With
End If
End Sub