Discussion :

[madvic]

Hello,

A tout hasard, quelqu'un saurais comment supprimer l'ensemble des filtres d'un classeur ou comment accéder à ceux-ci pour supprimer le/les filtre(s) ?
Merci

[zoom61]

Quelque chose comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub SupprimerFiltre()
   Dim monDocument As Object, lesFeuilles As Object 
   Dim maFeuille As Object, maZone As Object, monFiltre As Object
 
   monDocument = ThisComponent
   lesFeuilles = monDocument.Sheets
   maFeuille = lesFeuilles.getByName("Feuil1")
   maZone = maFeuille.getCellRangeByName("A1:Z100")
   monFiltre = maZone.createFilterDescriptor(True)
   maZone.filter(monFiltre)
End Sub

[madvic]

Salut Zoom61,

merci.
Mais ton script créé un filtre.
Moi je souhaite accéder aux scripts créés (ne connaissant pas leur plages...) et les supprimer / désactiver.

Grosso modo, quand j'ouvre la classeur, je veux mettre à plat l'ensemble des données, car si quelqu'un a créé un filtre sur un tableau, cela risque de perturber mes macros...

[zoom61]

Mais ton script créé un filtre.

Il crée un filtre vide donc pas de filtre

Moi je souhaite accéder aux scripts créés (ne connaissant pas leur plages...) et les supprimer / désactiver.

Grosso modo, quand j'ouvre la classeur, je veux mettre à plat l'ensemble des données, car si quelqu'un a créé un filtre sur un tableau, cela risque de perturber mes macros...

Là tu vas avoir un problème, car LibreOffice ne fonctionne pas avec les colonnes ou les lignes, il fonctionne avec une zone, il lui faut donc un point de départ et un point d'arrivée.

[madvic]

On peut accéder à l'ensemble des feuilles du classeurs et aussi l'ensemble des plages nommées.
Je m'étais dis que l'on pouvais accéder à l'ensemble des filtres, dommage.