fmaurice54
XLDnaute Nouveau
Bonjour,
Je souhaite pouvoir filtrer un tableau (qui en réalité est une table liée depuis ACCESS), via une ou plusieurs liste box.
Voici ce que j'ai essayé mais ca ne marche pas :
Sub filtrer()
Dim Critere_1 As String
Critere_1 = Sheets("synthèse").Range("W2").Value
ActiveSheet.ListObjects("Tableau_vulnérabilités.accdb").Range.AutoFilter Field _
:=1, Criteria1:=Critere_1
End Sub
Je souhaite pouvoir filtrer un tableau (qui en réalité est une table liée depuis ACCESS), via une ou plusieurs liste box.
Voici ce que j'ai essayé mais ca ne marche pas :
Sub filtrer()
Dim Critere_1 As String
Critere_1 = Sheets("synthèse").Range("W2").Value
ActiveSheet.ListObjects("Tableau_vulnérabilités.accdb").Range.AutoFilter Field _
:=1, Criteria1:=Critere_1
End Sub