[XL-2010] Ajouter un filtre dans un TCD [Résolu]

[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 :

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 :

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).

[Live83]

Arffff...
Malheureusement c'est bourré d'info confidentielles.

Or le TCD garde toutes les infos du tableau de base, donc impossible de le rendre non confidentiel.

Et j'ai essayé en ne copiant que les valeurs de mon TCD dans un nouveau classeur : ça marche très bien avec une macro. Le problème vient donc clairement de l'interaction d'un filtre avec le TCD (mais seulement en génération automatique... bizarre...)

Pour essayer de donner une meilleure idée de ce qui se passe, je joins une nouvelle copie d'écran :

(Remarquez le tooltip qui précise bien que les éléments de la colonne C sont supérieurs ou égaux à 100 )

[ZebreLoup]

Sinon tu boucles sur les lignes et tu les caches si elles ne remplissent pas ta condition...
(J'avoue que je n'ai jamais réussi à faire marcher correctement AutoFilter par macro, et ce n'est pas faute d'avoir essayé suite à certaines questions de membres sur ce forum.)

[mécano41]

Envoyé par Live83

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

[Live83]

Envoyé par ZebreLoup

Sinon tu boucles sur les lignes et tu les caches si elles ne remplissent pas ta condition...
(J'avoue que je n'ai jamais réussi à faire marcher correctement AutoFilter par macro, et ce n'est pas faute d'avoir essayé suite à certaines questions de membres sur ce forum.)

Bonjour,

J'ai suivi ton conseil : ça marche nickel !

C'est un peu long au niveau du traitement...
Et j'ai du me creuser la tête car je suis novice en VBA et je trouve ça assez peu intuitif voire par moments un peu torturé !
Etre obligé de sélectionner une cellule pour pouvoir sélectionner une ligne... à moins qu'on puisse faire plus simple ?
Mais ça marche, ça fait ce que je veux, et c'est bien là le plus important.

Merci pour votre temps et vos réponses !

A toutes fins utiles :
(J'ai aussi créé une macro pour faire la manipulation inverse)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub Cacher_lignes()
 
Dim i As Integer
i = 4
 
While (Range("B" & i) <> "")
    If (Range("C" & i).Value <= Range("E2").Value) Then
        Range("B" & i).Activate
        Rows(ActiveCell.Row & ":" & ActiveCell.Row).Hidden = True
    End If
    i = i + 1
Wend
 
End Sub
 
'******************
 
Sub Montrer_lignes()
 
Dim i As Integer
i = 4
 
While (Range("B" & i) <> "")
         Range("B" & i).Activate
        Rows(ActiveCell.Row & ":" & ActiveCell.Row).Hidden = False
        i = i + 1
Wend
 
End Sub

[Daniel.C]

Evite au maximum de sélectionner, tu perds en performance

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub Montrer_lignes()
 
Dim i As Integer
i = 4
 
While (Range("B" & i) <> "")
         Rows(i).Hidden = False
        i = i + 1
Wend
 
End Sub

[Live83]

Ah voilà... je vais essayer ça.
Ca simplifie déjà visuellement et je veux bien croire que ne pas sélectionner fait gagner du temps !

Merci

[mécano41]

Avec ta version initiale, as-tu essayé de supprimer la fin de l'instruction comme indiqué au message #9 et regardé si cela fonctionne mieux?

Cordialement

[Live83]

Oui, pardon j'ai oublié de répondre.
Ça ne change rien...

[Daniel.C]

Ou bien, pour éviter une boucle :

Code :

1
2
3
4
5
Sub Montrer_lignes()
 
Range([B4], [B4].End(xlDown)).EntireRow.Hidden = True
 
End Sub

[Live83]

Oui, en effet c'est beeeeaaaauuuucoup plus rapide !
(en changeant le True en False )

[Daniel.C]

Bonjour,

Pour masquer les lignes, tu peux utiliser :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Cacher_lignes()
 
Dim c As Range, Plage As Range
Application.ScreenUpdating = False
For Each c In Range([B4], [B4].End(xlDown))
    If c.Value <= Range("E2").Value Then
        If Plage Is Nothing Then
            Set Plage = c
        Else
            Set Plage = Union(Plage, c)
        End If
        Plage.EntireRow.Hidden = True
    End If
Next c
Application.ScreenUpdating = True
End Sub

[Live83]

Bonjour,

Je n'ai pas eu le temps d'essayer la dernière proposition.
Mais ce que j'ai mis auparavant fonctionne très bien !

Je mets le topic en résolu.

Merci