Tableau croisé dynamique

[cabisti10]

j'ai un problème lorsque je filtre sur des tableaux croisé dynamique, je suis en train d'utiliser ce code :
Sub Bouton1_Cliquer()

Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 65
ActiveSheet.PivotTables("Tableau croisé dynamique" & i).PivotFields("Semaines"). _
ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique" & i).PivotFields("Semaines"). _
CurrentPage = IIf(Sheets("Pareto ZAP1&2").Range("D8").Value = "", "(All)", Sheets("Pareto ZAP1&2").Range("D8").Value)
Next

End Sub


dans la ligne for i from 1 to 65 --> le code il marche lorsque je saisie un valeur inferieur à 32, comment faire ??

 

[Paritec]

Re : Tableau croisé dynamique

Bonjour Cabisti 10 le forum
tu auras remarqué sans doute que moi j'ai écrit Bonjour
bonne journée
Papou