Partager un même filtre pour deux tableaux dynamiques

Bonjour,

J'ai créé deux tableaux croisés dynamiques qui vont sélectionner dans mes données ce qu'il faut en fonction d'un filtre (le nom de la personne choisie) et affiche certains résultats : le premier tableau affiche certaines choses et le second tableau en affiche d'autres.

Pour le moment, comme c'est deux tableaux croisés dynamiques différents, je dois sélectionner la personne dans deux filtres différents.

Comment faire pour n'avoir à sélectionner la personne que dans le premier filtre et que le 2e tableau croisé dynamique utilise ce même filtre ?

J'ignore si ma question est suffisamment précise mais si ce n'est pas le cas, n'hésitez pas à dire

Merci pour votre aide....

Trucmuche

Bonjour et bienvenue,

Merci de joindre un fichier à ta demande.

Cdlt.

Bonsoir !

Les données étant confidentielles, j'en ai créé un autre mais ça ira bien

Le voici en fichier joint.

Merci bien pour votre aide !

Trucmuche

Re,

Un premier essai avec segments (slicers).

A étudier.

Sinon, il faut utiliser VBA et avec Mac, on peut avoir des surprises.

Cdlt.

Les slicers ne sont pas pris en charge par mon Excel (2011 Mac, v14.5.8)... argh :-s

Bonjour,

Je regarde pour une solution VBA fonctionnelle pour Excel 2011 Mac.

Cdlt.

Salut,

C'est super gentil mais j'envisage de faire l'update vers El Capitan... et donc je devrai passer à Office 2016 et ce sera réglé...

Il me reste à me décider pour faire tout ce brol... :-s (et à avoir le temps).

Je vous tiens au courant mais ne perdez pas trop de temps pour le moment avec cela, donc...

Grand merci pour votre aide !!

Trucmuche

Re,

Une nouvelle proposition à découvrir.

Cdlt.

Option Explicit

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim pt As PivotTable
Dim pf As PivotField
Dim str As String

    On Error GoTo exit_Handler

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    If ActiveSheet.Name = Me.Name Then

        Target = Me.PivotTables("PT1")

        For Each pf In Target.PageFields
            If pf.CurrentPage = "(All)" Then
                Application.Undo
                MsgBox "La sélection doit être unique."
            Else
                str = pf.CurrentPage.Value
            End If
        Next pf

        With Me.PivotTables("PT2").PageFields(1)
            .CurrentPage = str
            .EnableItemSelection = False
        End With

    End If

exit_Handler:
    Set pf = Nothing
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

End Sub