[RESOLU] Filtre automatique appliqué sur un filtre automatique d'une autre feuille

[prorudess]

Bonjour à tous,
J'ai beau chercher sur les forums je ne trouve pas de réponse à ma solution.
Pour faire simple, je voudrais que, lorsque je filtre une colonne dans ma Feuil1, la colonne qui contient le même nom en entête et les mêmes données dans la Feuil2 se filtre de la même manière.
Je pense qu'il n'y a pas d'autre solution "si l'on exclu l'hypothèse du tableau croisé dynamique" que de passer par du VBA, mais je n'arrive pas à la mettre en place.
D'avance merci de votre aide.

PS : Je vous joint un fichier exemple pour illustrer mon problème.

 

[flyonets44]

Re : Critère filtre automatique appliqué sur un filtre automatique d'une autre feuill

Bonjour
Voici ton fichier avec une petite macro qui fait le travail
Cordialement
Flyonets

 

[Dranreb]

Re : Critère filtre automatique appliqué sur un filtre automatique d'une autre feuill

Bonjour
Je l'avais écrit et testé à peu près avant de déjeuner, donc je l'indique: Pour Feuil2:

Option Explicit

Private Sub Worksheet_Activate()
Dim AFlt1 As AutoFilter, Zone As Range, Flt As Filter, N As Long
If Me.FilterMode Then
   Me.ShowAllData
ElseIf Not Me.AutoFilterMode Then
   Me.Range(Me.[A1], Me.UsedRange).AutoFilter
   End If
Set Zone = Me.AutoFilter.Range
Set AFlt1 = Feuil1.AutoFilter
For N = 1 To AFlt1.Filters.Count
   Set Flt = AFlt1.Filters(N)
   If Flt.On Then
      On Error Resume Next
      Zone.AutoFilter N, Flt.Criteria1, Flt.Operator, Flt.Criteria2
      If Err Then Err.Clear: Zone.AutoFilter N, Flt.Criteria1, Flt.Operator
      If Err Then Err.Clear: Zone.AutoFilter N, Flt.Criteria1
      If Err Then MsgBox Err.Description: Stop
      On Error GoTo 0
      End If
   Next N
End Sub

À+

 

[prorudess]

Re : Critère filtre automatique appliqué sur un filtre automatique d'une autre feuill

Merci beaucoup à vous deux. Dranreb, quand j'applique ta fonction au fichier lié, celui-ci me renvoi une erreur lors de l'activation de la feuil2!

 

[Dranreb]

Re : Critère filtre automatique appliqué sur un filtre automatique d'une autre feuill

Où ? Quelle instruction ? Quelle message d'erreur ?
Déboguer, mettre des espions sur les expressions impliquées.
À+

 

[Monique]

Re : Critère filtre automatique appliqué sur un filtre automatique d'une autre feuill

Bonjour,

Par formule
Formules matricielles, à valider par ctrl, maj et entrée

Plus un format conditionnel pour imiter le filtre de la feuille 1

 

[prorudess]

Re : Critère filtre automatique appliqué sur un filtre automatique d'une autre feuill

C'est bon après m'être un peu creusé la tête j'ai réussi à adapter ton code sur mon fichier. Merci beaucoup de ton aide.
Merci beaucoup Monique, ta solution est-elle aussi très bien, néanmoins j'ai déjà beaucoup de formules matricielles dans mon fichier ce qui a pour conséquence de l'alourdir considérablement. Mais merci quand même.
Bonne journée à tous et encore merci.