Comment faire

bonjour a tous

avant tout j'espere que vous avez passer de bonnes fetes

je vous expose mon probleme

je voudrais que quand dans ma cellule K15 quand le resultat de ma formule =SI(J15;"";1) la ligne 8 s'affiche si 1 et reste masqué si ""

avec cette formule cela ne fonctionne pas alors que si je tape 1 dans la case k15 cela fonctionne tres bien

je vous met la macro que j'ai adapter mais qui ne fonctionne pas avec cette formule

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Range("K15:K18"), Target) Is Nothing Then

For n = 15 To 15

If Range("K" & n) = "" Or Range("K" & n) = 0 Then

Rows("8").Hidden = True

Exit Sub

End If

Next

Rows("8").Hidden = False

End If

End Sub

cordialement

-- Dim Déc 26, 2010 1:27 pm --

re

je vous joint mon fichier car depuis ce matin je ne trouve aucune solution je desespere

je cherche a faire que

si k15=0 la ligne 8 reste masquer

si k15=1 la ligne 8 s'affiche

amicalement a tous

Bonjour

Un essai

Private Sub Worksheet_Calculate()
  If Range("K15") <> "" And Rows(8).Hidden = True Then Rows("8").Hidden = False
  If Range("K15") = "" And Rows(8).Hidden = False Then Rows("8").Hidden = True
End Sub

Bonnes Fêtes

merci bonzai64

mais cela a fonctionner la premiere fois et puis impossible de masquer la ligne

cordialement

Bonjour

Regardes le fichier joint