Discussion :

[alea83200]

Bonjour,

Mon code ne marche qu'une fois sur 10, et toujours le même code erreur "1004"
Pouvez vous m'aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub maj()
 
Sheets("Choix par centrales").Activate
ActiveSheet.PivotTables("CATCD1").PivotFields("COMPANYCHAINID").ClearAllFilters
ActiveSheet.PivotTables("CATCD1").PivotFields("COMPANYCHAINID").CurrentPage = ActiveSheet.Range("D3").Value
 
End Sub

Merci pour votre aide car débutante.

[halaster08]

Bonjour,

Quel est le descriptif de l'erreur et sur quel ligne obtient tu cette erreur ?

edit:
si l'erreur intervient sur la ligne ClearAllFilters c'est probablement un soucis de nom du TCD ou de nom du champs
si l'erreur intervient sur la dernière ligne c'est la valeur en D3 qui pose problème
Dans tous les cas pense à vérifier si il n'y aurait pas un ou plusieurs espace dans le nom du champs ou ses valeurs qui expliquerait pourquoi Excel ne les trouvent pas

[alea83200]

Bonjour,

le message est :

Impossible de définir la propriété currentPage de la classe PivotField

Blocage sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PivotTables("CATCD1").PivotFields("COMPANYCHAINID").CurrentPage = ActiveSheet.Range("D3").Value

[Menhir]

D'après l'aide VBA, cette propriété est un objet PivotItem.
Je doute (sans certitude) qu'elle puisse être renseignée par un valeur de cellule.
Lire ceci :
https://docs.microsoft.com/fr-fr/off...ld.currentpage
https://docs.microsoft.com/fr-fr/off...xcel.pivotitem

[alea83200]

Merci pour les liens.
J'ai modifié mon code de la sorte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro1()
'
' Macro1 Macro
 
Sheets("Choix par centrales").Activate
ActiveSheet.PivotTables("CATCD1").PivotFields("COMPANYCHAINID").ClearAllFilters
Sheets("Choix par centrales").PivotTables("CATCD1").PivotFields("COMPANYCHAINID") = Sheets("Choix par centrales").Range("D2").Value
End Sub

Et maintenance j'ai une autre erreur qui est :

Impossible de lire la propriété PivotFields de la classe PivotTable

Dans les liens je n'ai pas trouvé d'exemple proche de ma demande, qui est de modifier le filtre d'un tableau croisé dynamique selon la valeur d'une liste déroulante présente dans la même feuille.