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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jannine NOLAM

XLDnaute Nouveau
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
 

Pièces jointes

Bonjour Janinne,
Voici un code à ma façon (remplace l'ancien code)
Bruno
VB:
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 Janinne,
Voici un code à ma façon (remplace l'ancien code)
Bruno
VB:
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
 
Bonjour à tous,
voici du code pour la première feuille exemple.
je vous laisse voir pour la seconde.

VB:
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
385
Compte Supprimé 979
C
Réponses
2
Affichages
771
Retour