filtre selon une cellule (RÉSOLU)

chaelie2015

XLDnaute Accro
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
 

Pièces jointes

  • charlie filtre par cellule.xlsx
    9.1 KB · Affichages: 20

job75

XLDnaute Barbatruc
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

chaelie2015

XLDnaute Accro
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+
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

XLDnaute Barbatruc
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG