Filtre

Bonsoir a tous,

je souhaiterai avoir votre aide afin de faire un filtre sur la colonne A en VBA

alors je voudrais afficher tous sauf la case "ID" et et la case "(VIDES)"

Je vous remercie de votre aide

8classeur1.xlsx (294.98 Ko)

Bonsoir,

Essaie ainsi

Sub Filtrer()
    Dim d As Object, aa, crit, i&, n&
    Set d = CreateObject("Scripting.Dictionary")
    With Worksheets("Feuil1")
        If .FilterMode Then .ShowAllData
        n = .Range("A" & .Rows.Count).End(xlUp).Row
        aa = .Range("A1:A" & n).Value
        For i = 2 To UBound(aa)
            If aa(i, 1) <> "" Then d(UCase(aa(i, 1))) = ""
        Next i
        d.Remove ("ID")
        crit = d.keys
        With .Range("A1:B" & n)
            .Sort key1:=.Range("A1"), order1:=xlAscending, Header:=xlYes
            .AutoFilter 1, crit, xlFilterValues
        End With
    End With
End Sub

Cordialement.

Bonjour Mferrand,

Je te remercie pour ton aide precieuse , je l'ai adapter a mon fichier source et fonctionne nickel

Merci encore

Bonjour,

Note que sans le tri effectué avant filtrage, la coupure de ta liste (lignes vides à partir de 1299), le filtre serait inopérant sur les lignes situées ensuite...

Cordialement.

Rechercher des sujets similaires à "filtre"