AFFICHER / MASQUER DES LIGNES SOUS CONDITIONS

[chaelie2015]

Bonjour forum
je souhaite afficher ou masquer des lignes sous condition
exemple
si j'ai dans la cellule A1 = OK alors afficher les lignes de 6-35 et masquer les lignes 36-95
si j'ai dans la cellule A1 = KO alors afficher les lignes de 36-65 et masquer les lignes 6-35 ET 66-95
si j'ai dans la cellule A1 = OKO alors afficher les lignes de 66-95 et masquer les lignes 6-65
SALUTATIONS

 

[JHA]

Bonjour à tous,

Sans fichier exemple, difficile de te donner des solutions.

JHA

 

[chaelie2015]

Bonjour à tous,

Sans fichier exemple, difficile de te donner des solutions.

JHA

Re
ci joint fichier exemple
a+

 

[JHA]

Bonjour à tous,

Bel effort pour le fichier!
Avec un filtre avancé, colonne "A" masquée

JHA

 

[chaelie2015]

re
merci jha pour la réponse rapide, mais je souhaite le l'affichage ou le masquage via la cellule et non pas par bouton
merci par avance

 

[chaelie2015]

Re
j'ai utilisé ce code mais ça fonctionne pas?
Private Sub Worksheet_Change(ByVal Target As Range)
Rows("36:95").Hidden = Range("A1") = "OK"
Rows("6:35").Hidden = Range("A1") = "KO"
Rows("66:95").Hidden = Range("A1") = "KO"
Rows("6:65").Hidden = Range("A1") = "OKO"
End Sub
a+

 

[Lone-wolf]

Bonjour chaelie

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  Application.ScreenUpdating = False
  If [B2] <> "" Then
  Range("tableau").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
  [B1:B2], Unique:=False
  End If
  Application.EnableEvents = True
End Sub

 

[chaelie2015]

Bonjour LONE WOLF
MERCI POUR LA RÉPONSE,
a+