XL 2016 Code VBA pour garder les filtres d'entête actifs - Excel 2016

[Cat678]

Bonjour,

J'ai créé une macro avec un filtre élaboré. Cependant, à chaque fois que j'exécute ma macro, les filtres en entête disparaissent. Si je clique à nouveau, ils réapparaissent. J'ai essayé un code qui permet de les laisser actifs peu importe qu'ils le soient déjà ou pas mais je dois avoir fait une erreur car ça ne fonctionne pas.

Avez-vous une solution pour moi?


Petite précision: cela fonctionne pour mon onglet "Sondage" mais pas pour l'onglet "Rés".

Merci beaucoup!

Voici mon code:
Sub M_Res()
'
' M_Res Macro

'

Sheets("Rés").Select
Range("T_Res").Select
Selection.ClearContents
Range("A2").Select
ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 91
Range("DD2").Select
Sheets("Sondage").Columns("A😀B").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Rés!Criteria"), CopyToRange:=Range( _
"T_Res[#All]"), Unique:=False

ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-18


If Not ActiveSheet.AutoFilterMode Then
ActiveSheet.Range("A1😀B1").AutoFilter

End If

Sheets("Sondage").Select
If Not ActiveSheet.AutoFilterMode Then
ActiveSheet.Range("A1😀B1").AutoFilter

End If
Sheets("Rés").Select

Range("A2").Select
End Sub

 

[chris]

Bonjour

Enleve tous les scroll inutiles

Selon que la feuille contient ou non des tableaux structurés le code n'est pas le même

Depuis le version 2016 on filtre de plus en plus avec PowerQuery plutôt qu'une extraction par filtre avancé

 

[Cat678]

Merci pour les informations

Je vais les supprimer.

Comme je ne suis pas encore assez habile dans excel encore, je ne connais pas la notion de PowerQuery mais je vais essayer de trouver.

Merci