Bonjour
@Lolote83
J'ai une question subsidiaire...sur d'autres tableaux, je n'ai pas le champs Mois mais Date facturation (dans lequel il y a bien les mois).
Je modifie le PivotFields mais ça bloque sur xLisMois
Sub choix_du_mois()
Application.ScreenUpdating = False
xNumMois = Application.Match([C1], [ND_Mois], 0)
xLisMois = Array("janv", "févr", "mars", "avr", "mai", "juin", "juil", "août", "sept", "oct", "nov", "déc")
With ActiveSheet.PivotTables("ag1").PivotFields("Date facturation")
For F = 0 To 11
If F < xNumMois Then
.PivotItems(xLisMois(F)).Visible = True
Else
.PivotItems(xLisMois(F)).Visible = False
End If
Next F
.PivotItems("Date facturation").Visible = False
.PivotItems("(blank)").Visible = False
End With
Est-ce que tu vois pourquoi?
Merci beaucoup