filtre automatique sur certaines colonnes seulement

[yfollain]

Bonjour,
Je pense que le titre est assez explicite...

J'ai trouvé un morceau de vba sur le net que j'essaie d'adapter, mais apparemment il y a une erreur, cela ne fonctionne pas...

Merci de votre aide!

;-))

Sub FiltreAvecBoutonCache()

Dim MaPlage As Range
Set MaPlage = Worksheets("Applicateur").Range("a1").CurrentRegion

With MaPlage
For a = 1 To MaPlage.Columns.Count
Select Case a
Case 1, 3, 5
.AutoFilter field:=a, visibleDropDown:=True
Case 2, 4, 6
.AutoFilter field:=a, visibleDropDown:=False
End Select
Next
.AutoFilter field:=1, Criteria1:="Toto"
End With
End Sub

 

[yfollain]

Re : filtre automatique sur certaines colonnes seulement

En fait le filtre automatique n'accepte pas par défaut de sélectionner des colonnes non adjacentes...

 

[yfollain]

Re : filtre automatique sur certaines colonnes seulement

Pour info, solution trouvée sur un site en anglais, à toutes fins utiles de personnes qui auraient la même problématique que moi...

;-))


Sub HideArrowsRange()
'hides arrows in specified range
Dim c As Range
Dim i As Integer
Dim rng As Range
Set rng = Range("D14:J14")
i = rng.Cells(1, 1).Column - 1
Application.ScreenUpdating = False

For Each c In Range("D14:J14")
Select Case c.Address
Case "$E$14", "$G$14", "$J$14"
c.AutoFilter Field:=c.Column - i, _
Visibledropdown:=False
Case Else
c.AutoFilter Field:=c.Column - i, _
Visibledropdown:=True
End Select
Next

Application.ScreenUpdating = True
End Sub