Masquer automatiquement une ligne si "x" en colonne A

Bonjour le Forum !

J'aimerais faire une macro qui s'applique à toutes les feuilles d'un classeur.

Si un utilisateur entre la valeur "x" dans une cellule de la colonne A, la ligne correspondante passe immédiatement en format "masqué".

Je saurais le faire avec des filtres, mais le collègue qui m'a demandé de l'aide tient à ce que la ligne soit masquée, et non filtrée.

Comme ça dépasse mes compétences en VBA, quelqu'un pourrait-il m'aider, siouplé ?

Merci !!!

Bonjour,

Dans ThisWorkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Column > 1 Then Exit Sub
    Rows(Target.Row).EntireRow.Hidden = LCase(Target) = "x"
End Sub

eric

Nickel !

Merci beaucoup !

Bonjour,

voici le code que tu dois mettre dans chaque feuille pour laquelle tu veux que cela fonctionne:

Private Sub worksheet_change(ByVal Target As Range)

If Target.Column = 1 And Target.Value = "x" Then Rows(Target.Row).Hidden = True

End Sub

Wow ! 2 codes pour le prix d'un ;o)

Comme ça j'aurai le choix entre un fonctionnement pour le classeur entier ou feuille par feuille.

Merci.