Discussion :

[Live83]

Bonjour,

Je crée un tableau croisé dynamique par macros.
J'ai ajouté une macro à la suite qui crée un filtre sur les valeurs de la 3ème colonne du TCD.

Ça donne ça :

Code :

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

1
2
    Sheets("TCD").Select
    Selection.AutoFilter , Field:=3, Criteria1:=">=100", Operator:=xlAnd

Lorsque je regarde le résultat du filtre après l'exécution de la macro :
- le filtre existe dans mon TCD
- le filtre numérique est correctement sélectionné : supérieur ou égal à 100

Mais les valeurs affichées dans la colonne en question ne correspondent pas du tout...

Il y a de tout, des valeurs plus petites, plus grandes...
un filtre a bien été fait car des lignes ont disparu, mais sans queue ni tête...

Lorsque j'efface manuellement ce filtre, et que je le recrée à l'identique encore manuellement, ça marche nickel !

Quelqu'un aurait une idée svp ?

[Daniel.C]

Bonjour,

Utilise l'enregistreur de macros, poste le code généré et indique ta version d'Excel.

[Live83]

Ma version est Excel 2010

J'avais utilisé l'enregistreur de macro, et je m'en suis légèrement écarté, vu qu'elle ne marchait pas du tout pour le coup. ("La méthode AutoFilter de la classe Range a échoué")

Code :

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

1
2
3
4
5
6
7
8
9
Sub filtrage_colonne()
'
' filtrage_colonne Macro
'
    Columns("C:C").Select
    Selection.AutoFilter
    ActiveSheet.Range("$C$3:$C$1435").AutoFilter Field:=1, Criteria1:=">=100", _
        Operator:=xlAnd
End Sub

[Daniel.C]

J'ai du mal à comprendre; tu filtres sur un champ ou sur un item ? Qu'est-ce qu'il y a en C3 ?

[Live83]

C3 : c'est la première cellule appartenant au TCD dans la colonne C.

C'est dans cette cellule que se crée le filtre (que ce soit manuellement ou par la macro)

Mon but est de n'afficher que les lignes du TCD dont la valeur située dans la colonne C matche mon filtre.

Voici un morceau du TCD avant que le filtre ne soit créé.

[Daniel.C]

Ça serait sympa d'avoir un petit fichier de test (sans données confidentielles).

[mécano41]

Ma version est Excel 2010

... ActiveSheet.Range("$C$3:$C$1435").AutoFilter Field:=1, Criteria1:=">=100",Operator:=xlAnd


End Sub[/code]

Bonjour,

Il me semble que s'il y a ,Operator:=xlAnd il devrait y avoir derrière un second critère...Criteria2:= xxxx sinon, il faut supprimer ,Operator:=xlAnd

Cordialement