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

 

[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

 

[Gégé-45550]

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

c'est ce que j'ai écrit :
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

[EDIT] En C2, modifiez "Services" par ce que vous voulez, par exemple "Admin" et regardez ce qui se passe.

 

[telemarrk]

C'est moi qui m'exprime mal, comme tu peux le voir dans le fichier joint, j'ai redéfini la liste déroulante (q17:q20).

Je souhaite qu'"admin" affiche tout.

Merci

 

[telemarrk]

Phil69970, c'est exactement ce que je cherche.

Merci.

 

[Gégé-45550]

C'est moi qui m'exprime mal, comme tu peux le voir dans le fichier joint, j'ai redéfini la liste déroulante (q17:q20).

Je souhaite qu'"admin" affiche tout.

Merci

Il suffit de remplacer "Services" par "admin" dans le code

 

[telemarrk]

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

 

[telemarrk]

Je suis désolé pour toutes ces questions mais c'est en exploitant vos fichiers que les idées arrivent.
Gégé-45550, j'ai modifié le code mais admin ne fonctionne plus

 

[telemarrk]

si cela fonctionne, j'avais pas vu qu'il y avait une autre ligne avec field

Merci à vous deux

 

[job75]

.Bonjour à tous,

Pour ne pas avoir à modifier le code si l'on ajoute des colonnes déclarez une variable col et définissez-la :

col = [Tableau1[Services]].Column - [Tableau1].Column + 1

puis en dessous remplacez Field:=1 par Field:=col

A+

 

[telemarrk]

Bonjour job75,

Merci pour ton aide je teste cela de suite.

 

[telemarrk]

Désolé job75,

Mais cela ne fonctionne pas.

 

[Gégé-45550]

Désolé job75,

Mais cela ne fonctionne pas.

Re-bonjour,
mais bien sûr que si, ça marche !

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

C'est une excellente suggestion qu'à faite @job75
Cordialement,

 

[job75]

Bah j'avais pourtant pris la peine de préciser qu'il fallait déclarer la variable col