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

Gégé-45550

XLDnaute Accro

• 8 Mars 2023

• #16

telemarrk à dit:

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

Cliquez pour agrandir...

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 :

VB:

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.

 

Pièces jointes

• test-masque.xlsm

  26.2 KB · Affichages: 2

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 8 Mars 2023

• #17

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

 

Pièces jointes

• test-masque.xlsm

  19.9 KB · Affichages: 2

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 8 Mars 2023

• #18

Re

Je te propose ceci

@Phil69970

 

Pièces jointes

• Filtre su TS V3.xlsm

  20.9 KB · Affichages: 5

Vote positif 1 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 8 Mars 2023

• #19

Phil69970, c'est exactement ce que je cherche.

Merci.

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 8 Mars 2023

• #20

telemarrk à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• test-masque (1).xlsm

  26.5 KB · Affichages: 5

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 8 Mars 2023

• #21

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

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 8 Mars 2023

• #22

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

Cliquez pour agrandir...

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,

 

Vote positif 1 Vote négatif

Solution

Phil69970

XLDnaute Barbatruc

• 8 Mars 2023

• #23

Re

telemarrk à dit:

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

Cliquez pour agrandir...

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

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

Gégé-45550 à dit:

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

Cliquez pour agrandir...

@Phil69970

 

Vote positif 1 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 8 Mars 2023

• #24

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

 

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 8 Mars 2023

• #25

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

Merci à vous deux

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Mars 2023

• #26

.Bonjour à tous,

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

VB:

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

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

A+

 

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 8 Mars 2023

• #27

Bonjour job75,

Merci pour ton aide je teste cela de suite.

 

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 8 Mars 2023

• #28

Désolé job75,

Mais cela ne fonctionne pas.

 

Pièces jointes

• test-masque (1).xlsm

  21.3 KB · Affichages: 2

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 8 Mars 2023

• #29

telemarrk à dit:

Désolé job75,

Mais cela ne fonctionne pas.

Cliquez pour agrandir...

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

VB:

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,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Mars 2023

• #30

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

 

Vote positif 0 Vote négatif