XL 2016 filtrer des colonnes

[boguinette]

Bonjour,

Je me permets de poster ce message, car je voudrais masquer des colonnes en fonction d'un choix que j'aurais fait dans une liste déroulante. En fonction de mon choix, telles ou telles colonnes se masquent. Est ce possible de faire ça ? J'ai essayer de grouper mes colonnes, mais ca ne marche pas car les colonnes ne sont pas côte à côté je pense. Le masquage avec le clic droit, ne convient pas, parce que je serais obligé de le faire et défaire à chaque fois... Je mets un fichier exemple en pièce jointe, si quelqu'un à une solution ou une piste, je suis preneuse !!
Merci, et bonne journée

 

[vgendron]

Hello
une proposition en PJ avec un code dans l'évènement Change de la feuille

 

[boguinette]

Bonjour, Merci beaucoup, c'est exactement ce que j'aimerais avoir dans mon fichier. Je suis nulle en vba, si je copie colle votre code dans le fichier ou j'en ai besoin (en changeant les numéros de cellule) ca doit fonctionner ?
Merci !!

 

[vgendron]

oui effectivement il suffit de copier colller le code dans ton fichier dans la feuille qui va bien
et adapter les éléments du code
je te le remets ici avec des commentaires explicatifs pour te permettre de voir plus facilement ce qu'il va falloir adapter

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False 'on désactive les évènements pour éviter de tourner en rond et planter
If Not Intersect(Target, Range("M2")) Is Nothing Then 'si on change la cellule M2
    Columns("D:K").Hidden = False 'on affiche les colonnes D à K
    If Range("M2") <> "" Then 'si M2 n'est pas vide (==> M2 Vide permet d'afficher tout)
        For i = 4 To 11 'pour la colonne 4 (=D) à 11 (=K)
            If Cells(2, i) <> Range("M2") Then 'si la cellule en ligne 2 de la colonne est différente de M2
                Columns(i).Hidden = True 'on la masque
            End If
        Next i
    End If
End If
Application.ScreenUpdating = True 'on réactive les évènements
End Sub

 

[boguinette]

D'accord, merci.
J'ai modifié comme ça, mais j'ai du me rater quelque part, parce que ça masque, mais pas en fonction de ce que je mets en AQ1...

Est ce qu'il faut que je modifie quelque chose dans le code du module ?

Merci !!

 

[boguinette]

Ah ca y est je me suis rendue compte de mon erreur ! C'est la police des mots je n'ai pas mis la même. Maintenant ça fonctionne !
Un grand merci pour ton aide !!
bonne journée.

 

[boguinette]

Désolée, j'abuse encore de tes compétences, mais de la même façon, est ce que je pourrais faire un autre type de filtre, je te mets le fichier en pièce jointe avec l'explication...

Merci !!

 

[vgendron]

une fois les colonnes masquées.. tu veux filtrer les lignes? ou les colonnes restantes qui ont un 1 ?

 

[vgendron]

en PJ une modif du fichier
1) tes données sont mises dans des tableaux structurés
Tab_Type pour la partie "Mais /HV"
Tab_Data pour le tableau de données

2) quand tu modifies le choix en M2==> deux macros sont lancées
macro Filtrer_Colonne= masque les colonnes
macro filtrer_Ligne==> masque les lignes qui ne contiennent pas de 1