Microsoft 365 Masquage et démasquage sous plusieurs conditions

FCMLE44

XLDnaute Impliqué
Supporter XLD
Bonjour

Dans le tableau joint, je souhaite en fonction des conditions expliqués dans la feuil 1 masquer et démasquer plusieurs lignes différentes en fonction d'une donnée sélectionnée dans un menu déroulant

Voici en pièce jointe le tableau et les explications

Merci beaucoup
 

Pièces jointes

  • Classeur2.xlsx
    22.7 KB · Affichages: 34
Solution
Re..
Modifier cette partie du code

VB:
    '****************************************** Masquer/afficher************************
    If Target.Address = "$D$18" Then
        Application.ScreenUpdating = False
        Range("25:62,72:73").EntireRow.Hidden = False
        Select Case Target.Value
        Case "Démission"
            [41:62].EntireRow.Hidden = True
        Case "Fin de contrat Apprentissage", "Fin de contrat Professionnalisation", "Décès"
            [25:29, 46:62].EntireRow.Hidden = True
        Case "Licenciement Faute Grave"
            [41:46].EntireRow.Hidden = True
        Case "Fin de Contrat à Durée Déterminée"
            [25:29,46:62,72:72].EntireRow.Hidden = True
        Case "Retraite", "Rupture Conventionnelle"...

Jacky67

XLDnaute Barbatruc
Re..
Modifier cette partie du code

VB:
    '****************************************** Masquer/afficher************************
    If Target.Address = "$D$18" Then
        Application.ScreenUpdating = False
        Range("25:62,72:73").EntireRow.Hidden = False
        Select Case Target.Value
        Case "Démission"
            [41:62].EntireRow.Hidden = True
        Case "Fin de contrat Apprentissage", "Fin de contrat Professionnalisation", "Décès"
            [25:29, 46:62].EntireRow.Hidden = True
        Case "Licenciement Faute Grave"
            [41:46].EntireRow.Hidden = True
        Case "Fin de Contrat à Durée Déterminée"
            [25:29,46:62,72:72].EntireRow.Hidden = True
        Case "Retraite", "Rupture Conventionnelle"
            [25:29, 46:62 ,73:73].EntireRow.Hidden = True
        Case "Licenciement Autres"
            [41:46 ,73:73].EntireRow.Hidden = True
        End Select
    End If
 

Pièces jointes

  • FCMLE44 V3.xlsm
    149 KB · Affichages: 6
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 305
Messages
2 087 091
Membres
103 465
dernier inscrit
Ehoarn_src