filtre selon une cellule (RÉSOLU)

Victor21

XLDnaute Barbatruc

• 15 Septembre 2018

• #2

Bonjour chaelie2015.

En F2 : =I2 (ou ce que vous voulez).
Sur F2 : Données, filtrer, et choisir la valeur.

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 15 Septembre 2018

• #3

Victor21 à dit:

Bonjour chaelie2015.

En F2 : =I2 (ou ce que vous voulez).
Sur F2 : Données, filtrer, et choisir la valeur.

Cliquez pour agrandir...

Bonjour patrick
merci pour la réponse ; mais je souhaite faire un filtre par une cellule I2 (liste déroulante) INDÉPENDANTE DE LA COLONNE F
MERCI

 

Dernière édition: 15 Septembre 2018

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 15 Septembre 2018

• #4

Bonjour à tous,

A essayer, attention, colonne "E" masquée

Edit: pas besoin de matricielle fichier remplacé

JHA

 

Pièces jointes

• charlie filtre par cellule.xlsx

  16.7 KB · Affichages: 25

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 15 Septembre 2018

• #5

JHA à dit:

Bonjour à tous,

A essayer, attention, colonne "E" masquée

Edit: pas besoin de matricielle fichier remplacé

JHA

Cliquez pour agrandir...

Bonsoir JHA
MERCI pour la proposition mais je souhaite faire afficher et masquer les lignes de la colonne F
NB: les lignes de la colonne F elles sont reliée par d'autre cellule ( j'ai pas donné tous le tableau)
a+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Septembre 2018

• #6

Bonjour chaelie2015, Patrick, JHA,

Il faut du VBA, le code de la feuille :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If [I2] <> "" Then [F2:F100].AutoFilter 1, [I2] Else If FilterMode Then ShowAllData
End Sub

Fichier joint.

A+

 

Pièces jointes

• charlie filtre par cellule(1).xlsm

  22.2 KB · Affichages: 28

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 15 Septembre 2018

• #7

Bonsoir JOB
Super ,c'est exactement ce que je cherchais
merci JOB , merci JHA, patrick
A+

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 16 Septembre 2018

• #8

job75 à dit:

Bonjour chaelie2015, Patrick, JHA,

Il faut du VBA, le code de la feuille :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If [I2] <> "" Then [F2:F100].AutoFilter 1, [I2] Else If FilterMode Then ShowAllData
End Sub

Fichier joint.

A+

Cliquez pour agrandir...

Re bonsoir job
je souhaite généraliser ton code pour faire deux filtre séparés est ce que c'est possible ?

Private Sub Worksheet_Change(ByVal Target As Range)
If [R1] <> "" Then [N2:N100].AutoFilter 1, [R1] Else If FilterMode Then ShowAllData
If [F1] <> "" Then [F2:F100].AutoFilter 1, [F1] Else If FilterMode Then ShowAllData
End Sub

merci par avance

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Septembre 2018

• #9

Bonsoir chaelie2015,

Si l'on crée plusieurs filtres il faut distinguer celui sur lequel on travaille :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$R$1" Then
    If [R1] <> "" Then [N2:N100].AutoFilter 1, [R1] Else If FilterMode Then ShowAllData
ElseIf Target.Address = "$F$1" Then
    If [F1] <> "" Then [F2:F100].AutoFilter 1, [F1] Else If FilterMode Then ShowAllData
End If
End Sub

Bonne nuit.

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 16 Septembre 2018

• #10

Merci job et bonne nuit
a+

 

Vote positif 0 Vote négatif