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

 

[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

 

[Phil69970]

Re

Je te propose ceci

@Phil69970

 

[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

 

[Gégé-45550]

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

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,

 

[Phil69970]

Re

Comment je peux y remédier car mon tableau va certainement évoluer en ajoutant des colonnes.

La logique est de rajouter les colonnes coté droit et non pas coté gauche ......

Et je plussoie @Gégé-45550 sur sa remarque .......

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

@Phil69970

 

[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