filtre selon une cellule (RÉSOLU)

[chaelie2015]

Bonjour Forum
je souhaite faire un filtre dans une colonne F selon la cellule I2
Si la cellule I2 contient 3T 2018 ALORS affichertoutes les cellules (lignes) de la colonne F qui contiennent 3T 2018 et masquer les autres.
merci par avance

 

[Victor21]

Bonjour chaelie2015.

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

 

[chaelie2015]

Bonjour chaelie2015.

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

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

 

[JHA]

Bonjour à tous,

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

Edit: pas besoin de matricielle fichier remplacé

JHA

 

[chaelie2015]

Bonjour à tous,

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

Edit: pas besoin de matricielle fichier remplacé

JHA

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+

 

[job75]

Bonjour chaelie2015, Patrick, JHA,

Il faut du VBA, le code de la feuille :

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+

 

[chaelie2015]

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

 

[chaelie2015]

Bonjour chaelie2015, Patrick, JHA,

Il faut du VBA, le code de la feuille :

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+

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

 

[job75]

Bonsoir chaelie2015,

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

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.

 

[chaelie2015]

Merci job et bonne nuit
a+