Masquer/Démasquer des lignes automatiquement selon le contenu d'une cellule

[rchomier]

Bonsoir à tous,

Je ne m’y connais pas du tout en vb, mais j’aimerai simplement savoir comment réaliser l’action suivante :

Une feuille de classeur, avec des lignes masqués disons de 10 à 15.

Une liste déroulante en B9 avec « oui » et « non » en choix.

En gros, si « oui » est sélectionné (de base la cellule est vide).

Et bien les lignes 10 à 15 se démasquent. Mais si au contraire la personne enlève le « oui » (pour « non » ou rien), et bien les lignes se remasquent.

Est-ce possible ? Je vous serai très reconnaissant de m’aider 

Merci beaucoup !

 

[Softmama]

bonjour rchomier,

A tester, pque tapé à la volée : à placer dans le module de la feuille de calcul

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$9" Then  Rows("10:15").Hidden = IIf([B9] = "Oui", False, True)
End Sub

avec en B9 Données/validation : Autoriser:Liste / Source :

Oui;Non

 

[James007]

Re : Masquer/Démasquer des lignes automatiquement selon le contenu d'une cellule

Bonjour,

Voir fichier test joint ...

A +
🙂

 

[JCGL]

Re : Masquer/Démasquer des lignes automatiquement selon le contenu d'une cellule

Bonjour à tous,

Peux-tu essayer avec ceci dans le code la feuille :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$9" And Target = "Oui" Then
        Rows("10:15").EntireRow.Hidden = True
    Else
        Rows("10:15").EntireRow.Hidden = False
    End If
    Range("B9").Select
End Sub

A+ à tous