Microsoft 365 Afficher Masquer tableau selon critères + MàJ Autom. TCD en VBA

[Amilo]

Bonjour à tous,
J'aurais svp besoin de votre aide pour :

1- Afficher/Masquer les lignes d'un tableau selon 2 cellules D8 et E8 tout en tenant compte du Slicer
j'ai mis dans cet exemple un bouton de bascule ActiveX mais pas certain que ce soit le meilleur choix
J'aimerais pouvoir mettre une couleur de fond mais moins évident à faire à mon niveau pour ce bouton de contrôle

2- Automatiser tous les tableaux croisés dynamique lors du passage à l'onglet "TCD"

Merci par avance
Cordialement

 

[goube]

Bonsoir,
Une proposition.
Cordialement

 

[Amilo]

Bonjour @goube ,
Merci bcp pour votre réponse,
L'idée avec 2 boutons est bonne.
Cependant, le filtre de votre code agît sur un TCD alors que dans mon fichier je dispose d'un tableau
Certaines colonnes de ce tableau sont amenées à changer via la saisie manuelle.
Comment l'adapter svp pour que soit filtrer uniquement le tableau ?
Merci par avance
Cordialement

 

[goube]

Bonjour,
Content que cela vous convienne, en partie.
Le TCD est issu de votre tableau, qu'il faut le garder et l'utiliser normalement. Une macro d'actualisation se lancera à l'ouverture de l'onglet TdB.
Il est possible de regrouper tous les TCD sur le même onglet.
Cordialement

 

[Amilo]

@goube ,
Merci mais je veux garder la structure de mon fichier dans mon 1er message,
Je souhaite garder uniquement mes 2 onglets "TCD" et "Données" sans ajouter de nouveau TCD que je ne souhaiterais utiliser
Le tableau de l'onglet "Données " est celui que je veux filtrer selon les critères D8 et E8

Cordialement

 

[Cousinhub]

Hello,
Si j'ai bien compris...
Dans le code du ToggleButton1

Private Sub ToggleButton1_Click()
Dim Crit
If Me.ToggleButton1 Then
    If Application.CountA(Me.Range("D8:E8")) < 2 Or Not IsNumeric(Me.Range("E8")) Then Exit Sub 'Sécurité
    Crit = IIf(Me.Range("D8") = "Sup.", ">", "<")
    Me.ListObjects("Tableau1").Range.AutoFilter Field:=3, Criteria1:=Crit & Me.Range("E8").Value, Operator:=xlAnd
Else
    Me.ListObjects("Tableau1").Range.AutoFilter Field:=3
End If
End Sub

Bonne apm

Edit, j'ai oublié, pour la mise à jour des TCD
Dès que tu actives l'onglet, ceux-ci se mettent à jour
Code dans l'évènement de la feuille

Private Sub Worksheet_Activate()
Dim Pvt As PivotTable
For Each Pvt In Me.PivotTables
    Pvt.PivotCache.Refresh
Next Pvt
End Sub

 

[chris]

Bonjour à tous

Filtre via PQ

La colonne ajoutée Filtre est à masquer

 

[goube]

Re,
Version modifiée.

 

[Amilo]

Bonsoir le forum,

Désolé pour le retour tardif,
Je viens de tester chacune de vos solutions et je vous remercie beaucoup pour vos propositions
@goube , merci pour cette version modifiée, après test :
- je constate une certaine lenteur
- et aussi un basculement vers l'onglet "TCD" lorsque je clique sur l'un des boutons de l'onglet "Données"

@Cousinhub, c'est parfait merci pour cette solution. Je vais finalement rester sur un seul bouton "ToggleButton1"

@chris , merci d'avoir proposé une solution PQ malgré mon souhait en VBA, c'est tjrs intéressant de voir les différentes méthodes.
Cependant, bien que je sois plutôt à l'aise avec PQ, je ne souhaite pas de requête mais uniquement filtrer la table de données.

Je retiens finalement la solution de Cousinhub qui répond très bien à mon 1er message.

Par contre, probablement que je devrais ouvrir un nouveau sujet concernant un petit problème de suppression de filtres.
J'ai ajouté, une colonne supplémentaire "Position" à ma table de données et inséré un nouveau bouton pour supprimer tous les filtres des Slicers.
Le code VBA que j'ai affecté à ce nouveau bouton pour la suppresion des filtres fonctionne uniquement sur les Slicers mais pas sur un filtrage manuel opéré dans ce cas sur la colonne "Position"

Comment adapter svp le code pour que la suppresion se fasse sur l'ensemble des filtres "Slicers et manuels sachant que je souhaiterais garder les 2 boutons ?
Merci encorepour votre aide

Cordialement