XL 2016 Filtrer selon une valeur changeante

[felixgrezaud]

Bonjour,

J'aimerai grâce au VBA filtrer une liste d'objet par rapport à une valeur changeante. Cette valeur est déterminée en amont du document et peut être modifiée à tout moment.
Pour exemple j'ai créé un fichier simplifié de celui sur lequel je travaille.
Les critères sont variables et changent selon des cases à cocher. Les cases ont une cellule attribuée où s'inscrira "VRAI" ou "FAUX", et une formule simple comptera ensuite le nombre de VRAI par objet. Le filtre s'appliquera en feuille 2 pour ne faire apparaître que les objets possédant la valeur maximale. Il faut bien noter que la cellule filtrante ne sera pas "confirmée" avec un "entrée/enter", ou même "cliquée" : J'aimerai que le fait de cliquer sur l'onglet rafraîchisse le filtre selon la nouvelle valeur.
J'ai déjà vu un topic similaire et j'en ai même créé un supplémentaire mais je n'ai toujours pas obtenu la solution avec les codes présents sur ces discussions.

XL 2016 - Filtrer la valeur maximale ou bien celle d'une cellule

Bonjour à tous, J'ai une seule colonne d'une centaine de lignes où des chiffres évoluent selon des cases cochées en amont. J'ai placé ailleurs dans une cellule de "référence" la valeur maximale de cette colonne (qui change donc aussi selon les cases cochées) J'aimerai filtrer pour n'obtenir que...

www.excel-downloads.com

Filtrer une colonne en fonction de la valeur d'une cellule

Bonjour, Je cherche à filtrer automatiquement la colonne M en fonction de la valeur de la cellule F2 : si dans F2 je rentre le chiffre 33, je souhaiterais que les cellules M10:M23 qui contiennent 33 soient filtrer automatiquement. J'utilise Excel 2016. Je ne m'y connais pas en macros. Est-ce...

www.excel-downloads.com

Merci pour votre aide

 

[sylvanu]

Bonjour felixgrezaud,
Un exemple en PJ avec la macro :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        If Target = "" Then
            ActiveSheet.Range("$C$3:$D$100").AutoFilter Field:=1
        Else
            ActiveSheet.Range("$C$3:$D$100").AutoFilter Field:=1, Criteria1:="=" & Target, Operator:=xlAnd
        End If
    End If
End Sub

 

[felixgrezaud]

Bonjour @sylvanu , désolé mais ça ne fonctionne pas
Le filtre enregistre le premier résultat et ne modifie pas la liste ensuite

 

[sylvanu]

Désolé. Ca m'a échappé.
Un nouvel essai en PJ avec :

Sub Worksheet_Activate()
    If Range("A2") = "" Then
        ActiveSheet.Range("$C$3:$D$100").AutoFilter Field:=1
    Else
        ActiveSheet.Range("$C$3:$D$100").AutoFilter Field:=1, Criteria1:="=" & Range("A2"), Operator:=xlAnd
    End If
End Sub

La macro s'active lorsqu'on sélectionne la feuil2.

 

[felixgrezaud]

@sylvanu c'est super ça marche merci ! Est-ce possible pour toi de commenter les lignes de ton code pour que je puisse savoir à quoi sert chaque terme pour mieux apprendre ensuite ?
Encore merci

 

[sylvanu]

Re,

' Cette macro s'active lorsqu'on selectionne la feuille.
' C'est pour cela qu'elle se trouve dans Feuil2 et non dans un module. Le nom doit être Worksheet_Activate.
Sub Worksheet_Activate()
    If Range("A2") = "" Then                                    ' Si A2="", c'est à dire si vide
        ActiveSheet.Range("$C$3:$D$100").AutoFilter Field:=1    ' Alors on "défiltre" le tableau C3:D100
    Else                                                        ' Sinon on filtre ce tableau sur la valeur de A2
        ActiveSheet.Range("$C$3:$D$100").AutoFilter Field:=1, Criteria1:="=" & Range("A2"), Operator:=xlAnd
    End If
End Sub

Pour obtenir une syntaxe correcte, une des solutions est de passer par l'enregistreur de macro, puis ensuite remanier le code pour l'adapter et l'optimiser.