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

Cat678

XLDnaute Nouveau
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:DB").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:DB1").AutoFilter

End If

Sheets("Sondage").Select
If Not ActiveSheet.AutoFilterMode Then
ActiveSheet.Range("A1:DB1").AutoFilter

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

Range("A2").Select
End Sub
 
Dernière édition:
Solution
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é

chris

XLDnaute Barbatruc
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é
 

Discussions similaires

Réponses
3
Affichages
547