comment filtrer 2 TCD en meme temps

  • Initiateur de la discussion Initiateur de la discussion isabe
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

isabe

XLDnaute Nouveau
Bonjour,
j'ai x TCD (entre 2 et 10), de sources differentes, mais ayant tout de meme des filtres communs.
comment faire pour appliquer le meme filtre sur tous les tcd?

j'ai essayé avec ça

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim ws As Worksheet
Dim pt As PivotTable
Dim pi As PivotItem
Dim strField As String
Dim strField2 As String

strField = "Marque"

strField2 = "Groupe de periode"

On Error Resume Next
Application.EnableEvents = True
Application.ScreenUpdating = True

    If Target.Address = Range("b1").Address Then
        
        For Each ws In ThisWorkbook.Worksheets
            For Each pt In ws.PivotTables
                With pt.PageFields(strField)
                    For Each pi In .PivotItems
                        If pi.Value = Target.Value Then
                            .CurrentPage = Target.Value
                            Exit For
                        Else
                            .CurrentPage = "(All)"
                        End If
                    Next pi
                End With
            Next pt
        Next ws
    
    End If
    
    On Error Resume Next
    
Application.EnableEvents = True
Application.ScreenUpdating = True

    If Target.Address = Range("b2").Address Then
        
        For Each ws In ThisWorkbook.Worksheets
            For Each pt In ws.PivotTables
                With pt.PageFields(strField2)
                    For Each pi In .PivotItems
                        If pi.Value = Target.Value Then
                            .CurrentPage = Target.Value
                            Exit For
                        Else
                            .CurrentPage = "(All)"
                        End If
                    Next pi
                End With
            Next pt
        Next ws
    
    End If
End Sub

b1 et b2 etant des listes de validations.
ce code est OK dans excel 2003, mais pas dans 2007. 😕
Help!
Merci.
Ingrid.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
201
Réponses
5
Affichages
232
Réponses
7
Affichages
267
Réponses
7
Affichages
211
Réponses
4
Affichages
177
Réponses
10
Affichages
281
Retour