Filtre automatique dynamique

[Guy_M]

Filtre automatique dynamique[Résolu]

Bonjour,

J'ai une feuille dans laquelle j'utilise une colonne pour pointer des AR de mails.

Afin de remplir facilement cette colonne, j'applique un "filtre automatique" avec la valeur "Non".

Je souhaite que quand je change une valeur de la colonne le filtre automatique se réexécute (quand je fais passer une cellule de "Non" à "Oui", la ligne modifiée disparaisse).

Quel est le truc pour y arriver ?

Par avance, je vous remercie pour vos réponses.
Guy

 

[Staple1600]

Re : Filtre automatique dynamique

Bonsoir

EDITION:

Voila un exemple

Ce lien n'existe plus

___________________________________________________



Un petit bout de fichier avec des fausses adresses mails

pourraut nous aider à t'aider.

 

[Guy_M]

Re : Filtre automatique dynamique

Le fichier exemple est un très bon exemple.

Par contre, la solution proposée ne me satisfait pas car elle oblige pour faire la mise à jour à aller cliquer le bouton en haut de la fenêtre (on pourrait lier chaque bouton avec un raccourci clavier).

J'ai actuellement quasiment le même comportement en utilisant "figer les volets" qui maintient la ligne des titre toujours visible en haut de la page.

En regardant les macro, l'idée est qu'à chaque fois qu'une cellule change de valeur j'appelle une macro qui réapplique le filtre en cours.

Faut donc que je me familiarise avec les "filters"
Pour le moment j'ai fabriqué dans l'exemple un bouton qui permet de réappliquer un filtre simple, la macro est la suivante

    Critere1 = ActiveSheet.AutoFilter.Filters(5).Criteria1
    Selection.AutoFilter Field:=5, Criteria1:=Critere1

Reste à capturer l'évènement de modification de cellule
Ensuite faudra ajouter une option pour mettre en place le filtre automatique dynamique.
Je sais où aller.

Merci !

 

[Guy_M]

Re : Filtre automatique dynamique[Résolu]

Bonjour,

Plusieurs années après j'ai résolu mon problème, voici le code à utiliser

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim FiltreCourant As Filter
Dim NumCol As Integer
Dim RetourAutofiltre As Variant

    If Me.FilterMode Then 'Le mode filtre est activé
      For NumCol = 1 To Me.AutoFilter.Filters.Count
      Set FiltreCourant = Me.AutoFilter.Filters(NumCol)
        If FiltreCourant.On Then
            With FiltreCourant
                If .Operator = 0 Then
                  RetourAutofiltre = Me.Cells.AutoFilter(NumCol, .Criteria1)
                Else
                  RetourAutofiltre = Me.Cells.AutoFilter(NumCol, .Criteria1, .Operator, .Criteria2)
                End If
            End With
        End If
      Next
    End If

End Sub

En espérant que cela vous sera utile.

Guy

 

[Robert]

Re : Filtre automatique dynamique

[Édition]

C'était pas le bon fil...

 

[chris]

Re : Filtre automatique dynamique

Bonjour

Guy_M tu as 2003 mais depuis 2007 il y a un bouton réappliquer qu'on peut dupliquer dans la barre de lancement rapide...