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