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

[telemarrk]

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

 

[natorp]

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]

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]

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]

Bonjour Gégé-45550,

C'est exactement ce que je cherche à faire.

Merci pour ton aide.

 

[Phil69970]

Bonjour @telemarrk

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

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[Gégé-45550]

@Gégé-45550[/USER] pas rafraichi

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

 

[Phil69970]

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]

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]

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]

Re

Il suffit de modifier la liste de validation en incluant C2

@Phil69970

 

[telemarrk]

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

 

[telemarrk]

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]

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 :

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 :

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]

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