Masquer / réafficher des lignes selon la réponse choisie dans une liste déroulante...

[tif25]

Bonjour,

Je cherche un programme vba qui permettrait, sous excel, de faire apparaitre ou disparaitre un ensemble de lignes, selon la réponse choisie dans la liste déroulante (oui ou non).

Le fichier est plus explicite...

Merci d'avance pour votre aide !

 

[BOISGONTIER]

Re : Masquer / réafficher des lignes selon la réponse choisie dans une liste déroulan

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$2" Then
    Rows("27:32").Hidden = IIf(Target = "NON", True, False)
  End If
End Sub

JB

 

[tif25]

Re : Masquer / réafficher des lignes selon la réponse choisie dans une liste déroulan

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$2" Then
    Rows("27:32").Hidden = IIf(Target = "NON", True, False)
  End If
End Sub

JB

Merci beaucoup mais je ne suis absolument pas douée en programmation et je n'arrive pas à développer les bases que vous m'avez fourni... 🙁

 

[BOISGONTIER]

Re : Masquer / réafficher des lignes selon la réponse choisie dans une liste déroulan

-Clic-droit sur le nom de l'onglet
-Visualiser le code

JB

 

[chrislio]

Re : Masquer / réafficher des lignes selon la réponse choisie dans une liste déroulan

Bonjour,
Après avoir lu votre réponse qui répondait également à mon besoin de ce jour, je me suis demandé s'il y avait la même fonction pour masquer/réafficher les colonnes ?

Merci.
Chrislio

 

[jeanpierre]

Re : Masquer / réafficher des lignes selon la réponse choisie dans une liste déroulan

Bonjour chrislio et Bienvenue sur XLD, BOISGONTIER, tif25,

Dans le code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then
Rows("27:32").Hidden = IIf(Target = "NON", True, False)
End If
End Sub

Remplace Rows("27:32") par Columns("M:W") par exemple si tu veux masquer de la colonne M à la W.

Modifie aussi : If Target.Address = "$C$2" Then, ici C2 par la cellule d'appel de ton choix.

Bonne journée.

Jean-Pierre

 

[chrislio]

Re : Masquer / réafficher des lignes selon la réponse choisie dans une liste déroulan

Merci beaucoup !
J'avoue avoir essayé Columns...et non colomns...voilà l'erreur. 😀
Merci en tout cas.

Par contre, ma liste déroulante étant de plus de 2 choix, j'ai des demandes de masque de ligne qui sont redondants. J'ai l'impression que la macro ne marche plus. Elle n'exécute pas celle en rouge. Est-ce normal ?
Merci de votre aide.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$5" Then
rows("27:28").Hidden = IIf(Target = "Prêt", True, False)
rows("32:34").Hidden = IIf(Target = "Prêt", True, False)
rows("26:28").Hidden = IIf(Target = "S.A.V.", True, False)
rows("32:34").Hidden = IIf(Target = "S.A.V.", True, False)
rows("32:34").Hidden = IIf(Target = "Vente", True, False)
End If
End Sub


Chrislio

 

[chrislio]

Re : Masquer / réafficher des lignes selon la réponse choisie dans une liste déroulan

Oups, ça ne marche pas. Je vous envoie un exemple.
Pas de possibilité d'associer plusieurs et même demande. (retirer une même ligne sur 2 options).
Sur la colonne ça ne marche pas. j'ai enlevé la formule...

Mercide votre aide.
Chrislio

 

[chrislio]

Re : Masquer / réafficher des lignes selon la réponse choisie dans une liste déroulan

Bonjour,
Je me permets de relancer ma demande d'aide ci-dessus avec fichier attaché...😉 Merci à vous !
Bonne journée.
Chrislio