XL 2016 filtrer des colonnes

vgendron

XLDnaute Barbatruc

• 12 Octobre 2022

• #2

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

 

Pièces jointes

• Test (1).xlsm

  16.2 KB · Affichages: 5

Vote positif 0 Vote négatif

B

boguinette

XLDnaute Nouveau

• 12 Octobre 2022

• #3

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 !!

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 12 Octobre 2022

• #4

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

VB:

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

 

Vote positif 0 Vote négatif

B

boguinette

XLDnaute Nouveau

• 12 Octobre 2022

• #5

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 !!

 

Vote positif 0 Vote négatif

B

boguinette

XLDnaute Nouveau

• 12 Octobre 2022

• #6

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.

 

Vote positif 0 Vote négatif

B

boguinette

XLDnaute Nouveau

• 12 Octobre 2022

• #7

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 !!

 

Pièces jointes

• test.xlsx

  9.7 KB · Affichages: 3

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 12 Octobre 2022

• #8

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 12 Octobre 2022

• #9

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

 

Pièces jointes

• boguinette.xlsm

  20.8 KB · Affichages: 0

Vote positif 0 Vote négatif