j'utilise le filtre élaboré pour extraire par exemple tous les articles
d'une base contenant le mot bleu. ça marche sans pb. Par contre si je
veux extraire tous les articles contenant le mot rouge, je suis obligé
de refaire un filtre élaboré. J'aimerais pouvoir simplement modifier ma
zone de critère et avoir l'extraction automatiquement. Est-ce possible ?
Pour le moment je m'en sors avec une macro créée avec l'enregistreur
mais ce n'est pas très confortable.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Fred,
Ce que tu demandes est possible :
L'exemple suivant suppose que ta colonne recevant le filtre élaboré est la colonne A:A et que ta zone de critère est : D1:D2 à chaque fois que tu modifieras D2, le filtre s'actualisera.
à copier dans le module feuille où l'action se déroule ... '----------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D2").Address Then With Range("A1:A" & Range("A65536").End(xlUp).Row) .AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _ ("D1:D2"), Unique:úlse End With End If End Sub '-----------------------------
Salutations!
"Fred" a écrit dans le message de news: e0hcci$gfk$ Bonjour,
j'utilise le filtre élaboré pour extraire par exemple tous les articles d'une base contenant le mot bleu. ça marche sans pb. Par contre si je veux extraire tous les articles contenant le mot rouge, je suis obligé de refaire un filtre élaboré. J'aimerais pouvoir simplement modifier ma zone de critère et avoir l'extraction automatiquement. Est-ce possible ? Pour le moment je m'en sors avec une macro créée avec l'enregistreur mais ce n'est pas très confortable.
En attendant vos conseils, merci
Fred
Bonjour Fred,
Ce que tu demandes est possible :
L'exemple suivant suppose que ta colonne recevant le filtre élaboré
est la colonne A:A et que ta zone de critère est : D1:D2
à chaque fois que tu modifieras D2, le filtre s'actualisera.
à copier dans le module feuille où l'action se déroule ...
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D2").Address Then
With Range("A1:A" & Range("A65536").End(xlUp).Row)
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("D1:D2"), Unique:úlse
End With
End If
End Sub
'-----------------------------
Salutations!
"Fred" <fred.news.sansspam@tiscali.fr> a écrit dans le message de news: e0hcci$gfk$1@news.tiscali.fr...
Bonjour,
j'utilise le filtre élaboré pour extraire par exemple tous les articles
d'une base contenant le mot bleu. ça marche sans pb. Par contre si je
veux extraire tous les articles contenant le mot rouge, je suis obligé
de refaire un filtre élaboré. J'aimerais pouvoir simplement modifier ma
zone de critère et avoir l'extraction automatiquement. Est-ce possible ?
Pour le moment je m'en sors avec une macro créée avec l'enregistreur
mais ce n'est pas très confortable.
L'exemple suivant suppose que ta colonne recevant le filtre élaboré est la colonne A:A et que ta zone de critère est : D1:D2 à chaque fois que tu modifieras D2, le filtre s'actualisera.
à copier dans le module feuille où l'action se déroule ... '----------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D2").Address Then With Range("A1:A" & Range("A65536").End(xlUp).Row) .AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _ ("D1:D2"), Unique:úlse End With End If End Sub '-----------------------------
Salutations!
"Fred" a écrit dans le message de news: e0hcci$gfk$ Bonjour,
j'utilise le filtre élaboré pour extraire par exemple tous les articles d'une base contenant le mot bleu. ça marche sans pb. Par contre si je veux extraire tous les articles contenant le mot rouge, je suis obligé de refaire un filtre élaboré. J'aimerais pouvoir simplement modifier ma zone de critère et avoir l'extraction automatiquement. Est-ce possible ? Pour le moment je m'en sors avec une macro créée avec l'enregistreur mais ce n'est pas très confortable.
