Autofilter paramètrable VBA

[rbs11]

Bonjour à tous,
Je travaille sur un petit fichier excel qui fonctionne de la façon suivant.
Dans un onglet "recherche" en L3 j'inscris "2010" , en J3 j'inscris "Pharma". Je clique sur un bouton qui est censé me faire un filtre automatique des colonnes 19 et 54 en affichant dans la première les lignes contenant "2010" et les lignes "Pharma" pour l'autre.

Voilà le bout de code que j'ai bricolé:

If Not (IsEmpty(Worksheets("Chercher").Range("L3").Value)) Then
Selection.AutoFilter Field:=54, Criteria1:=Worksheets("Chercher").Range("L3").Value
End If
If Not (IsEmpty(Worksheets("Chercher").Range("J3").Value)) Then
Selection.AutoFilter Field:=19, Criteria1:=Worksheets("Chercher").Range("J3").Value
End If

Bien sur cela ne fonctionne pas.
Auriez vous une idée du pourquoi du comment?

Merci beaucoup.

 

[JCGL]

Re : Autofilter paramètrable VBA

Bonjour à tous,

Il semblerait que les filtres ne soient pas installés...
Ceci fonctionne :

Option Explicit

Sub Filtre()
    With Range("A2:B2")
    .AutoFilter
    .AutoFilter Field:=1, Criteria1:=Range("G1")
    .AutoFilter Field:=2, Criteria1:=Range("H1")
    Range("A1").Select
End With
End Sub

A+ à tous

 

[rbs11]

Re : Autofilter paramètrable VBA

Merci beaucoup