Bonjour à tous,
On navigue à vue !
Une proposition :
1 table de données
1 TCD et un segment Mois
A l'activation de la feuille TCD, le TCD est actualisé et filtré sut le mois précédent.
Le segment peut afficher les autres mois.
Un exemple à adapter suivant tes besoins, mais comme demandé par Arturo83, un fichier serait utile.
Cdlt
Private Sub Worksheet_Activate()
Dim sMonths As String, sMonth As String, iMonth As Integer
Dim arrMonths As Variant
Dim pt As PivotTable, pf As PivotField, pi As PivotItem
sMonths = "Jan Feb Mar Apr May Jun Jul Aug Sept Oct Nov Dec"
iMonth = Month(DateSerial(Year(Date), Month(Date), 0))
arrMonths = Split(sMonths): sMonth = arrMonths(iMonth - 1)
Set pt = Me.PivotTables(1): pt.RefreshTable
Set pf = pt.PivotFields("Mois (Date)")
With pf
.ClearAllFilters
For Each pi In .PivotItems
If pi.Value <> sMonth Then pi.Visible = False
Next pi
End With
End Sub