Discussion :

[Slysio]

Bonjour j'ai un tableau dynamique qui commence en A49 et qui va jusqu'a la colonne K (étant un tableau dynamique, le nombre de ligne peut varier).

J'ai un filtre qui est activé à la cellule A49. Je ne peux pas faire showalldata car je voudrais que les autres filtres restent !
Et j'aurai voulu l'enlever via une macro (j'en ai besoin pour une autre macro que j'utilise). J'ai essayé vraiment plein de choses mais en vain.. L'autofilter je n'arrive pas à le faire marcher..

Quand je fais enregistrer une macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro2()
'
' Macro2 Macro
'
 
'
    ActiveSheet.Range("$A$49:$K$460").AutoFilter Field:=1
End Sub

Mais quand je l'execute dans ma macro après ça ne marche pas..

J'ai essayé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Liste Encours").Range("A49:K1000").Select
Selection.AutoFilter Field:=1, Criteria1:="*"

Mais comme à chaque fois j'ai le droit à : erreur 1004, la méthode autofilter de la classe range a ecchoué..

Une peu d'aide SVP ?

[joe.levrai]

Bonjour,

peut être comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Liste Encours").Range("A49").Autofilter 1

ça supprime les critères de filtres appliqués sur la colonne A, sans toucher aux critères appliqués sur les autres colonnes

[Slysio]

Bonjour je viens d'essayer et j'ai toujours le même problème..

Erreur 1004, la méthode autofilter de la classe range a échoué..

[joe.levrai]

Bonjour,

dans l'ordre :

1) le fichier est bien ouvert ?
2) le nom de la feuille est correct ?
3) la ligne des titres est bien en ligne 49 ?
4) la plage est déjà filtrée quand tu lances la procédure ?


moi j'ai aucun souci avec cette ligne de code quand les 4 conditions ci-dessus sont réunies

[jijie]

salut

si tu essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub ttt()
Dim i As Integer
 
For i = 1 To 11
ActiveSheet.Range("$A$49:$K$1000").AutoFilter Field:=i
Next i
 
 
End Sub

Je ne sais pas si il ne faut pas prendre tout le tableau ""$A$49:$K$1000"" par exemple si ton tableau se termine en colonne "Z" alors remplace le "K" par "Z" et
"For i = 1 To 11" 1 étant la première colonne à prendre en compte et 11 la dernière!

[DeathZarakai]

Si c'est un Tableau croisé dynamique ne vaut-il pas mieux passer ainsi?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With Worksheets("page en question").PivotTables("Tab cr dyn").PivotFields("STATUT") 'changer le nom du pivot tables avec le nom du TCD et pivot Fields le filtre
            .PivotItems("DA").Visible = False
            .PivotItems("INVITE_OUT").Visible = False
            .PivotItems("ABSENT").Visible = True
            ' ...
End With

DeathZarakai.

P.S. : @jijie un TCD a une taille variable suivant les filtres, on ne peut sélectionner en dur le tableau (en dur je veux dire A34:E42)