Suppresion Ligne en Fonction choix dans une liste déroulante

Résolu/Fermé
Signaler
-
Messages postés
8
Date d'inscription
mardi 8 décembre 2015
Statut
Membre
Dernière intervention
5 janvier 2017
-
Bonjour,

Je souhaiterai avoir de l'aide afin d'obtenir une macro permettant de supprimer plusieurs lignes en fonction d'un choix dans une liste déroulante .
Ma liste déroulante comporte 2 choix Oui/ Non et est située en M5
Je voudrais que si l'utilisateur saisisse Oui les lignes 11 à 48 soit masquées en revanche si l'utilisateur saisie Non je voudrais que ces même lignes apparaissent.

Si la case reste vide je voudrais masquer ces lignes !

Merci pour votre aide !

2 réponses

Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
525
Bonjour,

Code à placer dans le module de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$M$5" Then
Select Case Target.Value
Case "Oui": Rows("11:48").Hidden = True
Case "Non": Rows("11:48").Hidden = False
Case Else: Exit Sub
End Select
End If
End Sub

A+
1
Messages postés
8
Date d'inscription
mardi 8 décembre 2015
Statut
Membre
Dernière intervention
5 janvier 2017

Merci beaucoup cela fonctionne parfaitement !!!
0
Messages postés
811
Date d'inscription
jeudi 24 septembre 2015
Statut
Membre
Dernière intervention
6 novembre 2020
66
Bonjour ,

https://www.cjoint.com/c/ELimcPhPhkH

A toi d'adapter à ton fichier :).

Cordialement
Fahora
0