Discussion :

[madvic]

Bonjour,

Je recherche un moyen par macro de supprimer les filtres d'un tableau de pilote (croisé dynamique) ?

merci

[zoom61]

Je ne pense pas qu'il existe une fonction qui supprime le filtre, par contre, il te suffit de faire une modification de filtre.

[madvic]

Merci Zoom61, sais tu ou puis je trouver de la ressource pour cela ?
Je n'ai pas trouvé grand chose sur la question des tableau pilote (croisé dynamique).
Merci

[zoom61]

Des pistes ici ou là.

[madvic]

Pas simple !
merci zoom61, j'ai tout de même trouvé mon bonheur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'''
' Supprime tous les filtres des champs du TCD (Tableau Croisé Dynamique / Tableau de Pilote)
'
Sub RetirerFiltreChampTCD()
	Dim fields, fTCD
	fTCD = ThisComponent.Sheets.getByName("graph")
	fields = fTCD.getDataPilotTables().getByIndex(0).getDataPilotFields()
	For i = 0 To fields.Count - 1 Step 1
	  	fields.getByIndex(i).UseSelectedPage = False 
	Next
End Sub