Microsoft 365 Masquage et démasquage sous plusieurs conditions

[FCMLE44]

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

 

[Jacky67]

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

Bonsoir,
Une proposition en PJ avec ce code

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then
        Application.ScreenUpdating = False
        Rows("4:41").Hidden = False
        Select Case Target.Value
        Case "Démission"
            [19:41].EntireRow.Hidden = True
        Case "Fin de Contrat à Durée Déterminée", "Fin de contrat Apprentissage", "Fin de contrat Professionnalisation", "Retraite", "Décès"
            [4:8, 25:41].EntireRow.Hidden = True
        Case "Licenciement Autres", "Licenciement Faute Grave"
            [20:24].EntireRow.Hidden = True
        End Select
    End If
End Sub

 

[FCMLE44]

Bonjour

Merci

Quand je le mets sur mon fichier définitif en modifiant les cellules, j'obtiens le message en pièce jointe

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$18" Then
        Application.ScreenUpdating = False
        Rows("25:62").Hidden = False
        Select Case Target.Value
        Case "Démission"
            [41:62].EntireRow.Hidden = True
        Case "Fin de Contrat à Durée Déterminée", "Fin de contrat Apprentissage", "Fin de contrat Professionnalisation", "Retraite", "Décès"
            [25:29, 46:62].EntireRow.Hidden = True
        Case "Licenciement Autres", "Licenciement Faute Grave"
            [41:46].EntireRow.Hidden = True
        End Select
    End If
End Sub

Cordialement

 

[Jacky67]

Bonjour

Merci

Quand je le mets sur mon fichier définitif en modifiant les cellules, j'obtiens le message en pièce jointe

Re..
Il y a certainement 2 "Worksheet_Change"
Ce qui n'est pas autorisé.
Mettre le classeur en ligne

 

[FCMLE44]

Je ne comprends pas 2 "Worksheet_Change"

 

[FCMLE44]

Ah oui, est ce du au nom de l'onglet ?
Sur le fichier FCMLE44, elle s'appelle Feuil1 et dans mon fichier définitif, elle s'appelle Renseignements Salarié"

 

[Jacky67]

Re..
Non, cela n'a rien à voir avec le nom de la feuille
Est-ce que le code proposé est bien placé dans le module de la feuille à traiter ?
Si oui, il ne peut y avoir 2 instructions évènementielles(Private Sub) du même nom
"Private Sub Worksheet_Change(ByVal Target As Range)"
Sinon, mettre le classeur en ligne

 

[FCMLE44]

Effectivement j'ai plusieurs instructions événementielles
J'ai supprimer les autres de manière temporaire et ca fonctionne

Y a t il une solution autre ?

 

[Jacky67]

Effectivement j'ai plusieurs instructions événementielles
J'ai supprimer les autres de manière temporaire et ca fonctionne

Y a t il une solution autre ?

Re..
C'est à voir, avec le classeur

 

[FCMLE44]

Ok je prépare un classeur vide des données personnelles vous l'envoie
Merci

 

[FCMLE44]

Le voici
Je ne suis qu'au début de mon projet

 

[Jacky67]

Le voici
Je ne suis qu'au début de mon projet

Re..
Mettre les deux codes dans le même "Worksheet_Change"
Pour la partie "Worksheet_Change" de la feuille "Renseignements salarié" le code ci-dessous
Et attribuer la plage "Motif de départ" (Nommée "Motif")à la validation des données de la cellule D18

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$21" Then
        If Target = "" Then Exit Sub
        If IsError(Evaluate("='" & Target.Value & "'!A1")) Then
            MsgBox "La feuille " & Target.Text & " n'existe pas !", , "Information"
        Else
            Sheets(Target.Value).Select
        End If
    End If
    '****************************************** Masquer/afficher************************
    If Target.Address = "$D$18" Then
        Application.ScreenUpdating = False
        Rows("25:62").Hidden = False
        Select Case Target.Value
        Case "Démission"
            [41:62].EntireRow.Hidden = True
        Case "Fin de Contrat à Durée Déterminée", "Fin de contrat Apprentissage", "Fin de contrat Professionnalisation", "Retraite", "Décès"
            [25:29, 46:62].EntireRow.Hidden = True
        Case "Licenciement Autres", "Licenciement Faute Grave"
            [41:46].EntireRow.Hidden = True
        End Select
    End If
End Sub

 

[FCMLE44]

Nickel

Merci

 

[FCMLE44]

Bonjour

J'aimerais rajouter une petite chose

Ligne 72 Se masque automatiquement si motif en B1 = Fin de Contrat à durée Déterminée

Ligne 73 Se masque automatiquement si motif en B1 = Licenciement Autres, Rupture Conventionnelle et Retraite

 

[Jacky67]

RE..
.....se masque automatiquement si motif en B1
Je ne vois aucun contrôle ni saisie en B1
Il n'y a pas de "Rupture Conventionnelle et Retraite " dans la plage "Motif"
Ou alors on ne parle pas de la même chose