Microsoft 365 masquer des lignes en fonction de plusieurs critères

[Marie44810]

Bonjour,

Je souhaite mettre en place en fichier de source commune à l'ensemble de mes équipes, où sont listées les actions à mener en fonction du critère d'un menu déroulant.
Chaque mission (lignes) peut être affectée à plusieurs missions (colonnes B à E).
Je souhaite qu'en fonction du choix fait sur le menu déroulant (cellule F3) les lignes ne correspondant pas à ce choix soient masquées pour ne garder que les lignes concernées.

Est-ce possible ?

Merci par avance,

 

[sylvanu]

Bonjour Marie,
Ne serait ce pas beaucoup plus simple de mettre des filtres sur les colonnes B à E ?
Le filtrage est automatique et permet de filtrer sur la 4 colonnes.

 

[Marie44810]

Bonjour Marie,
Ne serait ce pas beaucoup plus simple de mettre des filtres sur les colonnes B à E ?
Le filtrage est automatique et permet de filtrer sur la 4 colonnes.

Bonjour Sylvanu,
L'idée était de masquer ces colonnes et de simplifier l'utilisation pour les collaborateurs.
Peut-être que ma demande n'est simplement pas réalisable ..

 

[sylvanu]

Bonjour Marie,
Bien sur c'est faisable, mais cela me semblait plus simple de passer par un filtre;
En PJ un essai avec ce code :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("F3")) Is Nothing Then
        Application.ScreenUpdating = False
        ActiveSheet.Range("$B$7:$B$1000").AutoFilter Field:=1
        If [F3] <> "" Then
            ActiveSheet.Range("$B$7:$B$1000").AutoFilter Field:=1, Criteria1:= _
            "=*" & [F3] & "*", Operator:=xlAnd
        End If
    End If
End Sub

La macro est activé sur une valeur présente en F3.

 

[Marie44810]

Bonjour Marie,
Bien sur c'est faisable, mais cela me semblait plus simple de passer par un filtre;
En PJ un essai avec ce code :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("F3")) Is Nothing Then
        Application.ScreenUpdating = False
        ActiveSheet.Range("$B$7:$B$1000").AutoFilter Field:=1
        If [F3] <> "" Then
            ActiveSheet.Range("$B$7:$B$1000").AutoFilter Field:=1, Criteria1:= _
            "=*" & [F3] & "*", Operator:=xlAnd
        End If
    End If
End Sub

La macro est activé sur une valeur présente en F3.

C'est super ça !!! C'est ce que je souhaite
Est-ce qu'il est techniquement possible de dupliquer ceci sur les 3 autres choix ?

 

[sylvanu]

Quels autres choix ? Dans quelles cellules ?
Pouvez vous fournir un fichier test ?

 

[Marie44810]

Quels autres choix ? Dans quelles cellules ?
Pouvez vous fournir un fichier test ?

Sur les autres choix du menu déroulant, correspondant aux colonnes C, D et E ?
Le fichier sur lequel vous avez travaillé est un fichier test

 

[sylvanu]

Ce n'était pas la question.
Donc j'ai choisi les cellules F3,H3,F4,H4 pour les 4 choix.

 

[Marie44810]

Ce n'était pas la question.
Donc j'ai choisi les cellules F3,H3,F4,H4 pour les 4 choix.

Je vous remercie pour votre temps !!
Mais cela n'a pas l'air de fonctionner.
Je pense me rabattre sur une autre solution.
Vraiment, merci encore !

 

[sylvanu]

Je teste toujours avant de livrer.
Qu'est ce qui ne marche pas ?
cependant comme dit au post #2, vous avez des filtres sur les colonnes BCDE, choisir un item dans une liste déroulante ou choisir un item dans un filtre c'est la même chose.