Microsoft 365 Masquer et filtrer avec choix

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2022

• #2

Bonjour Millemoon,
Un essai en PJ avec :

VB:

    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [D1:D2]) Is Nothing Then
        If LCase([D1]) = "x" Then
            [G:H].EntireColumn.Hidden = False
            [H:H].EntireColumn.Hidden = True
            On Error Resume Next
            ActiveSheet.ShowAllData
            Range("$G$4:$G$" & Range("G65500").End(xlUp).Row).AutoFilter Field:=1, Criteria1:="<>"
        End If
        If LCase([D2]) = "x" Then
            [G:H].EntireColumn.Hidden = False
            [G:G].EntireColumn.Hidden = True
            On Error Resume Next
            ActiveSheet.ShowAllData
            Range("$H$4:$H$" & Range("H65500").End(xlUp).Row).AutoFilter Field:=1, Criteria1:="<>"
        End If
        If LCase([D1]) <> "x" And LCase([D2]) <> "x" Then
            [G:H].EntireColumn.Hidden = False
            On Error Resume Next
            ActiveSheet.ShowAllData
        End If
    End If
End Sub

 

Pièces jointes

• Classeur2.xlsm

  19 KB · Affichages: 6

Vote positif 0 Vote négatif

M

mllemoon

XLDnaute Nouveau

• 10 Février 2022

• #3

Merci.

J'ai tenté de l'appliquer à mon fichier mais je n'y arrive pas.

(fichier en lien car j'ai eu une erreur "fichier non implémenté)
https://we.tl/t-GqFgfyl8XK

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2022

• #4

Re,
Il eut été plus simple de donner directement un fichier représentatif.
J'ai modifié le système de masquage, cela évite de rentrer des X pour masquer. Ici il suffit de cliquer sur Masquer.
( Dans votre fichier, seule la macro Worksheet_Change dans la feuille Feuil1 était à implémenter )

 

Pièces jointes

• VBA1.xlsm

  56.1 KB · Affichages: 6

Vote positif 0 Vote négatif

M

mllemoon

XLDnaute Nouveau

• 10 Février 2022

• #5

Merci. Vous avez raison, j'aurais dû mettre le bon fichier dès le départ.
C'est vraiment très bien cette solution !
Par contre, ce n'est pas tout à fait ce dont j'ai besoin.
Le choix de 1 ou 2 est fait dans la feuille "sucreries".

À partir de ce choix, les colonnes doivent se masquer et filtrer sur la feuilles "Options"

Désolée ne pas avoir été assez claire et merci beaucoup pour votre aide.
-karine

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2022

• #6

mllemoon à dit:

Par contre, ce n'est pas tout à fait ce dont j'ai besoin.
Le choix de 1 ou 2 est fait dans la feuille "sucreries".

Cliquez pour agrandir...

Ah oui ? Et où ?
Vous pourriez peut être le préciser, car dans le post 1 c'est D1 D2, or là dans Sucreries elles sont fusionnées.

 

Vote positif 0 Vote négatif

M

mllemoon

XLDnaute Nouveau

• 10 Février 2022

• #7

Dans Sucreries:
Si on choisi avec un "X" soit J8 ou Q8 , la colonne I de la feuille Option doit demeurer affichée et filtrée (J doit donc se masquer).
Si on choisi avec un "x" Y8, la colonne J de la feuille Option doit demeurer affichée et filtrée. (I doit donc se masquer).

J'espère avoir été plus claire, et désolée pour ne pas l'avoir été correctement plus tôt.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2022

• #8

Un nouvel essai.

 

Pièces jointes

• VBA1 (2).xlsm

  56.4 KB · Affichages: 4

Vote positif 0 Vote négatif

M

mllemoon

XLDnaute Nouveau

• 10 Février 2022

• #9

C'est parfait ! Si ce n'est que j'aimerais voir les 2 colonnes si aucun des 3 choix n'est sélectionné. Est-ce possible ?

Merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2022

• #10

Par pitié, la prochaine fois essayez d'être beaucoup plus claire dès le premier post.
Bonne nuit.

 

Pièces jointes

• VBA1 (3).xlsm

  56.4 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

M

mllemoon

XLDnaute Nouveau

• 10 Février 2022

• #11

sylvanu à dit:

Par pitié, la prochaine fois essayez d'être beaucoup plus claire dès le premier post.
Bonne nuit.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

mllemoon

XLDnaute Nouveau

• 10 Février 2022

• #12

Promis, vous êtes incroyables !

Bonne nuit

Karine

 

Vote positif 0 Vote négatif