Discussion :

[dodo69]

Bonjour,

Je me trouve de nouveau confronté à un problème...

J'ai sur ma feuille("code") une liste de produits ( qui change tout le temps) , j'aimerai basé mon filtre sur ces produits.

Je m'explique
J'ai dans une colonne le nom des produits que je veux filtrer sur ma base de données. ---> feuille("database")

Le problème c'est que cette liste varie,

Ma question: quel code faut il écrire pour parvenir à filtrer cette liste de produit, peut importe la longueur de cette liste ( elle n'excède pas 20 éléments)

Merci pour votre aide

Cordialement
DoDo

[mercatog]

Une proposition (Excel 2007)

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim LastLig As Long
Dim Tb
 
Application.ScreenUpdating = False
Tb = Worksheets("code").Range("A1:A20")          'zone de critères
With Worksheets("database")
    .AutoFilterMode = False
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range("A1:A" & LastLig).AutoFilter Field:=1, Criteria1:=Application.Transpose(Tb), Operator:=xlFilterValues
End With

[dodo69]

Merci mercatog,

ca marche parfaitement bien,
Quelqu'un pourrait m'expliquer comment marche ce critère ?

Merci
Cdlt
DoDo

[dodo69]

J'ai des critère qui ont changé pour ma question...


Ce n'est plus simplement un filtre au niveau de la base de données mais au niveau d'un TCD.

Ma question est la même :

J'ai sur ma feuille("code") une liste de produits que je veux filtrer sur mon tableau croisé dynamique. ---> feuille("PIVOT for Summury")

Le problème c'est que cette liste varie,

Ma question: quel code faut il écrire pour parvenir à filtrer cette liste de produit, peut importe la longueur de cette liste ( elle n'excède pas 20 éléments)

Code :

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

1
2
3
4
5
6
7
 
Tb = Worksheets("code").Range("J3:J40")          'zone de critères
 
With Worksheets("PIVOT for Summury")
    .PivotTables("PivotTable2").PivotFields("dbo_t_BUSINESS_LINE_Name").ClearAllFilters
   .PivotTables("PivotTable2").PivotFields("dbo_t_BUSINESS_LINE_Name").CurrentPage = Application.Transpose(Tb)
End With

Ce code ne filtre qu'un seul élément de ma liste
Merci de me venir en aide .

DoDo