Microsoft 365 Masquer et filtrer avec choix

mllemoon

XLDnaute Nouveau
Bonjour,

J'aimerais masquer une colonne et filtrer les données suite à un choix:

Si la case D1 est marquée d'un "X", masquer la Colonne H et Filtrer les "x" de la colonne G.
Si la case D2 est marquée d'un "X", masquer la Colonne G et Filtrer les "x" de la colonne H.

Voir fichier joint.

Un grand merci

Karine
 

Pièces jointes

  • Classeur2.xlsx
    10.6 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

mllemoon

XLDnaute Nouveau
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
 

mllemoon

XLDnaute Nouveau
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.

😬
 

Discussions similaires

Statistiques des forums

Discussions
312 104
Messages
2 085 326
Membres
102 862
dernier inscrit
Emma35400