Masquer/Afficher lignes listes déroulantes Macro

Signaler
Messages postés
1
Date d'inscription
mercredi 5 février 2020
Statut
Membre
Dernière intervention
5 février 2020
-
cs_Le Pivert
Messages postés
6533
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
15 février 2020
-
Bonjour,

Je souhaite MASQUER des lignes selon le contenu choisi d'une liste déroulante.

Exemple : Si je choisis "CLIENT", "OFF LU-JE", "OFF VE", "ABSENT" alors je souhaite masquer les lignes 11-12 ; 19-20 ; 23-24 ; 31-32 ; 42 à 51

Je souhaite également AFFICHER des lignes selon le contenu choisi dans la liste déroulante.

Exemple 1 : Si je choisis "OFF 0,5 am doivent s'afficher les lignes 23-34 ; 31-32 ; 47 à 51

Exemple 2 : Si je choisis "OFF 0,5 pm LU-JE" ou "OFF 0,5 pm VE" doivent s'afficher les lignes 11-12 ; 19-20 ; 42 à 46

Je vous remercie d’avance pour votre aide !

1 réponse

Messages postés
6533
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
15 février 2020
447
Bonjour,

Voici un exemple en vba

Faire Alt F11 sur la feuille concernée

coller ce code dans le module de la feuille. Il se déclenchera au double clic sur la cellule A1 (a adapter)

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then ' adapter la cellule
If Target.Value = "" Then Exit Sub
Select Case Target.Value
Case Is = "CLIENT"
  Rows("11:12").EntireRow.Hidden = True ' masqué
 Case Is = "OFF 0,5 pm LU-JE"
    Rows("11:12").EntireRow.Hidden = False 'affiché
'continuer avec les autres entrées
End Select
End If
End Sub