Lancer une macro au clic sur un filtre automatique

Bonjour,

J'ai une macro qui lorsque je sélectionne une valeur dans un filtre automatique, filtre 3 tableaux simultanément. La macro fonctionne très bien.

Cependant, j'aimerai que la macro se lance lorsque je sélectionne une valeur dans le filtre (voir pièce jointe). J'ai créé un bouton mais ce n'est pas top... L'événement Change ne fonctionne pas car lorsque l'on filtre la valeur de cellule ne change pas dans le filtre.

Si vous avez des idées.

Merci pour votre aide et bon week-end.

Bonjour,

Il n'existe pas de procédure événementielle sur les actions de filtrage donc soit tu utilises un bouton comme tu le fais soit tu utilises la procédure événementielle "Selection_Change()" de la feuille mais dans ce cas, la macro sera appelée à chaque changement de cellule ou alors, une combinaison de touches

Bonjour à tous

Une solution ci-joint avec un TCD sur un autre onglet (à masquer)

Un segment lié au TCD permet de récupérer la valeur sélectionnée

(grâce à la fonction donnée ici https://www.jkp-ads.com/articles/slicers05.asp)

et déclenche le filtre par l'événement WorkSheet_PivotTableUpdate de la feuille portant le TCD

J'ai fait une boucle qui allège nettement le code du filtre

Sub filtre()

Application.ScreenUpdating = False

vmeteo = GetSelectedSlicerItems("Segment_Cas_possibles")
For Each Tableau In Worksheets("R1").ListObjects
    If vmeteo <> "All Items" Then
        Tableau.Range.AutoFilter Field:=1, Criteria1:=vmeteo
    Else
        Tableau.Range.Cells(1, 1).Select
        ActiveSheet.ShowAllData
    End If
Next
End Sub

Je ne saurais trop te conseiller néanmoins de nommer correctement tes tableaux et ne pas garder les noms automatiques qui n'ont aucune signification...

C'est vraiment super !

Cette technique me convient parfaitement bien.

Merci beaucoup et bon week-end à tous.