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

Marie44810 · 27 Juillet 2020

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 · 27 Juillet 2020

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 · 28 Juillet 2020

sylvanu à dit:
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 · 28 Juillet 2020

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 :

VB:

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 · 28 Juillet 2020

sylvanu à dit:
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 :

VB:

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 · 28 Juillet 2020

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

Marie44810 · 28 Juillet 2020

sylvanu à dit:
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 · 28 Juillet 2020

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

Marie44810 · 28 Juillet 2020

sylvanu à dit:
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 · 28 Juillet 2020

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.

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

Marie44810

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Marie44810

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Marie44810

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Marie44810

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Marie44810

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Discussions similaires