XL 2016 Liste déroulante à deux choix permettant d'afficher ou masquer des lignes

[jannine NOLAM]

Bonjour tout le monde,

J’ai un document Excel dans lequel j’aimerai masquer des lignes d’une feuille en fonction d’une liste déroulante d’une autre feuille.
Je vous ai mis un exemple de ce que j’aimerai faire en pièce jointe. Vous y trouverez toutes les informations permettant de bien comprendre mon problème.
De plus, j’ai fait en sorte que cet exemple soit le plus réaliste possible, c’est-à-dire que j’ai remis les macros existantes dans mon document officiel.

Pouvez-vous m’aider ?

Merci d’avance et bonne journée

 

[youky(BJ)]

Bonjour Janinne,
Voici un code à ma façon (remplace l'ancien code)
Bruno

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$M$13" Then
   If Target.Value = "Oui" Then Feuil2.Visible = True
   If Target.Value = "Non" Then Feuil2.Visible = False
End If
 If Target.Address = "$M$34" Then
   If Target.Value = "Oui" Then Feuil3.Visible = True
   If Target.Value = "Non" Then Feuil3.Visible = False
 End If
End Sub

 

[jannine NOLAM]

Bonjour Janinne,
Voici un code à ma façon (remplace l'ancien code)
Bruno

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$13" Then
   If Target.Value = "Oui" Then Feuil2.Visible = True
   If Target.Value = "Non" Then Feuil2.Visible = False
End If
If Target.Address = "$M$34" Then
   If Target.Value = "Oui" Then Feuil3.Visible = True
   If Target.Value = "Non" Then Feuil3.Visible = False
End If
End Sub

Bonjour Bruno,
Merci pour cette simplification de mon code, mais est-ce que vous auriez une idée pour masquer des lignes ?
Bien à vous
Jannine

 

[MP59]

Bonjour à tous,
voici du code pour la première feuille exemple.
je vous laisse voir pour la seconde.

Private Sub Worksheet_Activate()
    If LCase(Sheets("Test").Range("M15")) = "oui" Then
        For i = 16 To 24
            Sheets("Exemple").Rows(i).Hidden = False
        Next i
    Else
        For i = 16 To 24
            Sheets("Exemple").Rows(i).Hidden = True
        Next i
    End If
    
    If LCase(Sheets("Test").Range("M15")) = "oui" Then
        For i = 16 To 24
            Sheets("Exemple").Rows(i).Hidden = False
        Next i
    Else
        For i = 16 To 24
            Sheets("Exemple").Rows(i).Hidden = True
        Next i
    End If
End Sub

 

[youky(BJ)]

Bonsoir à tous,
J'avais pas vu pour les lignes
Voici une nouvelle version
Bruno

 

[jannine NOLAM]

Merci à vous deux,
je vais essayer avec mon document et vous tiens au cours dans la semaine.