Suppresion Ligne en Fonction choix dans une liste déroulante

Résolu/Fermé
Andrea - Modifié par Andrea le 8/12/2015 à 12:16
DBAndy Messages postés 8 Date d'inscription mardi 8 décembre 2015 Statut Membre Dernière intervention 5 janvier 2017 - 8 déc. 2015 à 14:05
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 !
A voir également:

2 réponses

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
8 déc. 2015 à 13:06
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
DBAndy Messages postés 8 Date d'inscription mardi 8 décembre 2015 Statut Membre Dernière intervention 5 janvier 2017
8 déc. 2015 à 14:05
Merci beaucoup cela fonctionne parfaitement !!!
0
Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 68
8 déc. 2015 à 13:03
Bonjour ,

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

A toi d'adapter à ton fichier :).

Cordialement
Fahora
0