XL 2016 Afficher/masquer des lignes en fonction d'un critère

telemarrk · 8 Mars 2023

Bonjour,

Je souhaite afficher/masquer des lignes en fonction du choix fait en L1.

Exemple : si je choisis "Vente" en L1 je veux voir dans mon tableau que les ventes

Peut-on également lorsque l'on quitte le fichier que tous soient affichés ?

Merci

Gégé-45550 · 8 Mars 2023

telemarrk à dit:
Cela fonctionne également, Gégé-45550.

Est-ce que je peux me permettre de vous demander une dernière chose.

Si par exemple, j'ajoute une colonne à gauche de "services" intitulé "numéro" cela ne fonctionne plus.
Comment je peux y remédier car mon tableau va certainement évoluer en ajoutant des colonnes.

Merci

Alors, toutes les questions d'un coup, c'est mieux !
Dans la ligne

VB:

If Filtre <> "admin" Then ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:=Filtre

le Field représente le N° de la colonne à filtrer.
Si vous ajoutez une colonne à gauche, la colonne à filtrer devient la deuxième colonne.
Il faut alors modifier Field:=1 en Field:=2, etc.
Cordialement,

natorp · 8 Mars 2023

Bjr telemarrk

Ce n'est pas déjà ce vous avez demandé ici :

XL 2016 - Filtrer avec deux critères

Bonjour, Je viens à nouveau vous demander votre aide, il y a quelques jours j'ai eu une aide de certains membres (mapomme, riton00, job75) pour la réalisation d'un tableau qui me permet de filtrer en fonction d'un critère se trouvant en L1. J'essaie en vain d'ajouter un second critère "Validé"...

excel-downloads.com

Cordialement, Gérard

telemarrk · 8 Mars 2023

Bonjour Natorp

Non, j'ai repris le même tableau.
La je ne veux pas filtrer sur un second tableau je veux juste savoir si l'on peut à l'aide d'un code VBA ou autre afficher et masque des lignes en fonction d'un critère.

Merci

Gégé-45550 · 8 Mars 2023

telemarrk à dit:
Bonjour,

Je souhaite afficher/masquer des lignes en fonction du choix fait en L1.

Exemple : si je choisis "Vente" en L1 je veux voir dans mon tableau que les ventes

Peut-on également lorsque l'on quitte le fichier que tous soient affichés ?

Merci

Bonjour,
Comme ça ?
Cordialement,

telemarrk · 8 Mars 2023

Bonjour Gégé-45550,

C'est exactement ce que je cherche à faire.

Merci pour ton aide.

Phil69970 · 8 Mars 2023

Bonjour @telemarrk

Edit : Bonjour @natorp et @Gégé-45550 pas rafraichi

Je te propose ce fichier

Merci de ton retour

@Phil69970

Gégé-45550 · 8 Mars 2023

Phil69970 à dit:
@Gégé-45550[/USER] pas rafraichi

Bonjour Phil69970,
("pas rafraichi") : ????

Phil69970 · 8 Mars 2023

Re

En clair quand j'ai posté ma réponse je n'ai pas vu vos réponses car j'ai pas rafraichi l'écran

Edit : C'est vrai écrit comme je l'avait fait cela pouvait porter à confusion !!!

@Phil69970

telemarrk · 8 Mars 2023

Bonjour Phil69970,

Merci pour ton aide, cela fonctionne mais le fichier de Gégé-45550 permet en sélectionnant "services" d'afficher toutes les lignes masquer.

Gégé-45550 · 8 Mars 2023

Phil69970 à dit:
Re

En clair quand j'ai posté ma réponse je n'ai pas vu vos réponses car j'ai pas rafraichi l'écran

Edit : C'est vrai écrit comme je l'avait fait cela pouvait porter à confusion !!!

@Phil69970

Phil69970
Pas de problème l'ami, j'avais bien compris, c'était juste pour rire.
Bien amicalement,

Phil69970 · 8 Mars 2023

Re

Il suffit de modifier la liste de validation en incluant C2

@Phil69970

telemarrk · 8 Mars 2023

Oui, mais si je vais cela il masque toutes les lignes.

telemarrk · 8 Mars 2023

Gégé-45550,

Peut-on faire une dernière modification à ton fichier joint.
Je viens de m'apercevoir que lorsque l'on quitte il affiche la totalité du tableau en proposant d'enregistrer.
Je voudrais que si le dernier choix est par exemple "Vente" il reste sur vente.

Une dernière chose également, je compte adapter le code vba sur un autre fichier excel, peut-on remplacer "services" par "admin" sans souci.

Merci

Gégé-45550 · 8 Mars 2023

telemarrk à dit:
Gégé-45550,

Peut-on faire une dernière modification à ton fichier joint.
Je viens de m'apercevoir que lorsque l'on quitte il affiche la totalité du tableau en proposant d'enregistrer.
Je voudrais que si le dernier choix est par exemple "Vente" il reste sur vente.

Une dernière chose également, je compte adapter le code vba sur un autre fichier excel, peut-on remplacer "services" par "admin" sans souci.

Merci

re-Bonjour,
l'affichage complet correspond à la demande initiale :

Peut-on également lorsque l'on quitte le fichier que tous soient affichés ?

Pour supprimer cette action, il suffit d'effacer la procédure suivante dans ThisWorkbook :

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1
End Sub

Pour la deuxième demande, pour que le code prenne en compte n'importe quel intitulé à la place de "Services", modifiez la procédure comme suit :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Filtre$
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [L1]) Is Nothing Then
        ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1
        Filtre = [L1]
        If Filtre <> ActiveSheet.ListObjects("Tableau1").HeaderRowRange(1) Then ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:=Filtre
    End If
End Sub

Cordialement,

telemarrk · 8 Mars 2023

Oui, tu as raison c'est la demande initiale (désolé).

Par contre, je souhaite intégrer dans la liste déroulante "Admin" qui aurait les mêmes attributs que "Services"

Merci

XL 2016 Afficher/masquer des lignes en fonction d'un critère

telemarrk

XLDnaute Occasionnel

Pièces jointes

Gégé-45550

natorp

XLDnaute Barbatruc

XL 2016 - Filtrer avec deux critères

telemarrk

XLDnaute Occasionnel

Gégé-45550

XLDnaute Accro

Pièces jointes

telemarrk

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Pièces jointes

Gégé-45550

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

telemarrk

XLDnaute Occasionnel

Gégé-45550

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

telemarrk

XLDnaute Occasionnel

telemarrk

XLDnaute Occasionnel

Gégé-45550

XLDnaute Accro

telemarrk

XLDnaute Occasionnel

Discussions similaires