Sujet Précédent Sujet Suivant

Masquer/Afficher lignes listes déroulantes Macro

Fermé
a.raff Messages postés 1 Date d'inscription mercredi 5 février 2020 Statut Membre Dernière intervention 5 février 2020 - 5 févr. 2020 à 15:38
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 6 févr. 2020 à 11:39
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 !
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
6 févr. 2020 à 11:39
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


0

Discussions similaires

Afficher toutes les lignes masquées excel
livlarsen -
esicom -

26 réponses
remettre toutes les colonnes et les lignes masquées
mousaillon -
oumnas -

4 réponses