Masquer une ligne

Bonjour,

Ci joint les lignes de code que j'ai rentré dans VBA :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("zcoche")) Is Nothing Then

Target = "fait"

End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Value = "fait" Then Rows(Target.Row).Hidden = True

End Sub

"zcoche" est le nom d'une colonne. Quand je dble clic sur une des lignes de la colone consernée, le mot "fait " apparait et la ligne est donc masqué automatiquement.

Le Problème :

Dès que je veux copier ou supprimer une ligne...ça BEUG!!!!

Peut-on faire apparaître les masquer par l'intermédiaire d'un simple bouton sur la feuille excel?

Merci,

Bonjour

Dès que je veux copier ou supprimer une ligne...ça BEUG!!!!

Remplace ton code par celui ci-après

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value = "fait" Then Rows(Target.Row).Hidden = True
End Sub

Peut-on faire apparaître les masquer par l'intermédiaire d'un simple bouton sur la feuille excel?

Pourquoi ne fais-tu pas simplement ceci.

Clique sur la case en haut à gauche de ta feuille (à gauche de la colonne A et au dessus de la ligne 1), Ensuite clique droite sur une cellule de ta feuille puis choisis l'option AFFICHER.

Si ok, lors de ta réponse, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

EDIT Dan :

Tu peux aussi faire plus simple et avec un seul code.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("zcoche")) Is Nothing Then
    Target = "fait": Rows(Target.Row).Hidden = True
End If
End Sub

Il te reste à supprimer le code WORKSHEET_CHANGE

Ca fonctione!!!

Merci beaucoup et bonne journée!