Cacher lignes en fonction d'1 critère VBA

0

Bonjour à tous,

Je souhaiterais cacher les lignes dont la valeur dans les cellules de la colonne A sont différentes de la valeur indiquée dans la cellule B1 de la feuille ETIQUETTES.

J'ai réalisé une macro nommée "Filtrer_DP_Etiquettes" :

Sub Filtrer_DP_Etiquettes()

Application.ScreenUpdating = False

Dim Ligne As Long

    For Ligne = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1

        If Not Cells(Ligne, "A") = Range("B1") Then Rows(Ligne).Hidden = True

    Next Ligne

Application.ScreenUpdating = True

End Sub

Celle_ci fonctionnée auparavant en cliquant sur le bouton "Filtrer DP" .... mais ne fonctionne plus ....

Pourriez-vous m'aider à identifier l'erreur ?

Merci

Fabien

Fichier => https://transfernow.net/271dc9d21f0t

    Posté le 27 juin, 12:09
    par Fabien55
    Répondre

    Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
    Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :