Discussion :

[PJ_VBA]

Bonjour,

Je rencontre une difficulté dans le cadre d'une petite macro relative à un filtre sur plusieurs tableaux calc.

En fait, il s'agit d'un fichier (extrait rendu confidentiel et simplifié joint) partagé, ayant des lignes pouvant être groupées au souhait de l'utilisateur, dans lequel un filtre doit pouvoir être actionné de manière libre.par chacun. Je précise que ce filtre porte sur un ensemble de tableaux, ayant la même en tête de colonnes, les uns au dessous des autres (séparés par des lignes vides). A l'origine, avant de rendre utilisable le fichier, j'actionne moi-même le filtre (dans le cadre de l'extrait joint : Sélection de la zone C4 à N26 puis : Données – Filtre – Autofiltre).

Je souhaite faire un code permettant de "réinitialser" le filtre (neutraliser les sélections), sans l'enlever, par simple clic sur un bouton. J'ai essayé de coder (Cf; ci-après) mais je ne parviens pas au résultat attendu.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim document   as object
dim dispatcher as object
 
 
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$C$4"
 
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
 
dispatcher.executeDispatch(document, ".uno:DataFilterRemoveFilter", "", 0, Array())
 
end sub

En vous remerciant par avance

[jurassic pork]

hello,
je ne sais pas si c'est exactement ce que tu veux mais il suffit de réafficher toutes les lignes masquées par le filtre comme ceci par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Filtre_OFF()
 Dim monDocument As Object
 Dim lesFeuilles as Object
 Dim maFeuille As Object
 Dim maZone as Object
 Dim mesLignes as Object
 
    monDocument = ThisComponent
    lesFeuilles = monDocument.Sheets
    maFeuille = lesFeuilles.getByName("Par_Secteur")
    maZone = maFeuille.getCellRangeByName("C4:N26")
    mesLignes = maZone.Rows
    mesLignes.IsVisible = true
end sub

Le filtre existe toujours et il suffit de cliquer dessus pour le réappliquer.

Ami calmant, J.P

[PJ_VBA]

Merci beaucoup JP.

Oui cela permet de tout réafficher. La seule chose c'est que la sélection apparaît toujours cochée en ligne 4. Est-il possible d'y remédier ?

Merci

[jurassic pork]

hello,
avec les différentes routines qui vont suivre, tu devrais pouvoir t'en sortir :

1 - Routine en flip flop (une fois active, une deuxième fois désactive etc...) qui active ou désactive le filtrage automatique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
sub toggle
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$C$4"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:DataFilterAutoFilter", "", 0, Array())
end sub

2 - Routine pour définir une plage de filtrage automatique :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Creer_AutoFiltre()
 Dim maPlage 'Objet DatabaseRange.
 Dim PlageAdresse
 Dim maFeuille 
 Dim monDocument 
 monDocument = ThisComponent
 If NOT monDocument.DatabaseRanges.hasByName("MaPlageDeBd") Then
 maFeuille = ThisComponent.getSheets().getByName("Par_Secteur")
 maPlage = maFeuille.getCellRangeByName("C4:N26")
 PlageAdresse = maPlage.getRangeAddress()
 monDocument.DatabaseRanges.addNewByName("MaPlageDeBd",PlageAdresse)
 End If
 maPlage = monDocument.DatabaseRanges.getByName("MaPlageDeBd")
 maPlage.AutoFilter = True
End Sub

3 - Routine pour enlever les filtres sur une feuille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Enlever_Filtre()
 Dim monDocument As Object
 Dim lesFeuilles as Object
 Dim maFeuille As Object
 Dim descFiltre As Object
 monDocument = ThisComponent
 lesFeuilles = monDocument.Sheets
 maFeuille = lesFeuilles.getByName("Par_Secteur")
 descFiltre = mafeuille.createFilterDescriptor(True)
 maFeuille.filter(descFiltre)
End Sub

Ami calmant, J.P

[PJ_VBA]

Bonjour JP et merci,

Je vais essayer de combiner cela un peu plus tard dans la journée.

[PJ_VBA]

Bonsoir JP,

J'ai lancé la routine 3 pour afficher tout. J'ai essayé de supprimer le filtre en lançant la routine 2 (en remplaçant true par false en ligne 14). Enfin, j'essaye de remettre le filtre en lançant la routine 2 (true en ligne 14). Tout s'affiche mais la sélection précédente reste toujours cochée dans le filtre. Je bloque. Merci de m'aider.

A+

[jurassic pork]

hello,
tu n'as pas essayé la routine 1 (toggle) ?
Parce que si tu fais la routine 1 cela t'efface l'autofiltre.
Puis tu fais la routine 2 (créer autofiltre) cela te recrée l'autofiltre sans sélection particulière.

Ami calmant, J.P

[PJ_VBA]

Bonjour JP,

Cela fonctionne. Merci d'avoir porté attention à mes interrogations et de m'avoir permis de progresser.

Excellente fin d'année