Double filtre sur Worksheet change.

[tinet]

Bonjour le forum,

Est-il possible sur une feuille avec Worskheet_Change d'avoir un double filtre.

voici mon code actuel avec un filtre et l'adresse de référence du choix de mon filtre.

rivate Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("E1")) Is Nothing Then
Dim Derlig As Long, Critere As String

Application.ScreenUpdating = False
With Sheets("1")
Critere = .Range("E1").Text
End With
With Sheets("ACHAT")
.Range("A1:F1").AutoFilter
.Range("A1:F1").AutoFilter Field:=3, Criteria1:=Critere

Il me faut en E3 le choix de mon deuxième filtre.

Merci pour vos conseils.

 

[Pierrot93]

Re : Double filtre sur Worksheet change.

Bonjour,

pas sur d'avoir tout compris, regrde peut être ceci...

With Range("A1:F1")
    .AutoFilter field:=3, Criteria1:="=xxx"
    .AutoFilter field:=4, Criteria1:="=zzz"
End With

bon après midi
à+

 

[tinet]

Re : Double filtre sur Worksheet change.

Bonsoir Pierrot 93

J'ai trouver mon code, en espérant qu'il n'y a pas d'erreur.

Private Sub Worksheet_Change(ByVal Target As Range)


If Not Application.Intersect(Target, Range("E1")) Is Nothing Then
Dim Derlig As Long, Critere As String

Application.ScreenUpdating = False
With Sheets("1")
Critere = .Range("E1").Text
Critere1 = .Range("E3").Text
End With
With Sheets("ACHAT")
.Range("A1:F1").AutoFilter
.Range("A1:F1").AutoFilter Field:=3, Criteria1:=Critere
.Range("A1:F1").AutoFilter Field:=1, Criteria1:=Critere1

 

[tinet]

Re : Double filtre sur Worksheet change.

Bonsoir le forum

J'ai trouver mon code, en espérant qu'il n'y a pas d'erreur.

Private Sub Worksheet_Change(ByVal Target As Range)


If Not Application.Intersect(Target, Range("E1")) Is Nothing Then
Dim Derlig As Long, Critere As String

Application.ScreenUpdating = False
With Sheets("1")
Critere = .Range("E1").Text
Critere1 = .Range("E3").Text
End With
With Sheets("ACHAT")
.Range("A1:F1").AutoFilter
.Range("A1:F1").AutoFilter Field:=3, Criteria1:=Critere
.Range("A1:F1").AutoFilter Field:=1, Criteria1:=Critere1

Maintenant je me trouve devant un nouveau problème

Je souhaite ajouter encorre un filtre

.Range("G1:G1").AutoFilter Field:=1, Criteria1:="=" sur la colonne G

Mais si je le range à la suite sa ne marche pas .

Merci de votre aide

 

[Pierrot93]

Re : Double filtre sur Worksheet change.

Bonjour Tinet

indique la même plage à tous les "autofilter" :

.Range("A1:G1").AutoFilter

bonne journée
@+