[XL-365] Macro VBA de Filtrage sur un TCD

1 pièce(s) jointe(s)

Macro VBA de Filtrage sur un TCD

Bonjour,

je n'ai pas trouvé la solution à mon problème en cherchant dans les précédents postes donc je le pose ici.

Ma macro cherche à filtrer des données dans une colonne (deuxième colonne) d'un tableau précis (en Feuil2) selon un critère que l'on renseigne soit même dans une InputBox qui apparaît à l'écran après avoir cliqué sur le bouton rattaché à la macro de la Feuil1.
Code:

1 2 3 4 5 6 Dim Filter As String Filter = InputBox("Veuillez renseigner le numéro de Tiers recherché :", "Filtre") Worksheets("Feuil2").Range("D17").AutoFilter Field:=2, Criteria1:=Filter
Mon problème est, je le pense, que le tableau où le filtre doit être appliqué est un TCD et que le code ne fonctionne pas sur ce type de tableau.

Le code est correct car il fonctionne si je copie/colle seulement les valeurs du TCD et que je test le code sur les valeurs simples.

Donc mes questions sont :
- Est ce qu'il est possible de faire un code VBA qui filtre les données d'un TCD?
- Si oui, quelle formule faut-il utiliser ?

Merci de votre aide,

Hugo

1 pièce(s) jointe(s)

Bonjour,

Voir si ceci peut convenir:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub FiltreSurTiers()
    Dim Filter As String
    Filter = InputBox("Veuillez renseigner le numéro de Tiers recherché :", "Filtre")
    Worksheets("Feuil2").Activate
    With ActiveSheet.PivotTables(1).PivotFields("Tiers")
        .Orientation = xlPageField
        .Position = 1
        .ClearAllFilters
        .CurrentPage = Filter
    End With
    Range("D17").Select
End Sub

Cordialement

ça fera très bien l'affaire, merci beaucoup !

Hugo