Filtre VBA

Bonjour,

j'essaie d'aller sur un autre classeur et décocher la case vide du filtre,

seulement mon code bloque à cette ligne

    TCD.AutoFilter Field:=1, Criteria1:="<>"

le code complet est le suivant

Sub test()

    Dim dernLigne, dernLigne1, dernLigne2, dernLigne3, dernLigne4, dernLigne5, dernLigne6 As Integer
    Dim ligne_limite, der_ligne As Long
    Dim Plage As Range
    Dim Nblg As Long
    Dim FichierBase As Workbook    'On defini comme variable FichierBase pour le fichier de verification
    Set FichierBase = ThisWorkbook
    Dim FichierWatcher As Workbook  'On defini comme variable FichierWatcher pour le fichier avec la liste des films
    Dim DLig, DLig1, Dlig_pourcent As Long
    Dim Cel As Range
    Set FichierWatcher = GetObject("C:\Users\personne\Desktop\The Watcher1.xlsm")
    dernLigne = FichierWatcher.Worksheets("TOP 20").Range("D" & Rows.Count).End(xlUp).Row

'----identification de la valeur 150-----------------------------------------------------

    For i = 5 To dernLigne
        If FichierWatcher.Worksheets("TOP 20").Cells(i, 3) = "" And FichierWatcher.Worksheets("TOP 20").Cells(i, 4) = "150" Then
        ligne_limite = i - 1
            Exit For
        End If
    Next i

      MsgBox (ligne_limite)

    Set TCD = FichierWatcher.Worksheets("TOP 20").Range("A4:M" & Range("B65536").End(xlUp).Row)
    TCD.AutoFilter Field:=1, Criteria1:="<>"

End sub
    

si quelqu'un aurait une petite idée,

Merci

Bonjour,

Tu peux essayer :

Dim TCD As PivotTable

Set TCD = ActiveSheet.PivotTables(1)