Pb critère xlfilter

Bonjour à tous,

sur la feuille Matrice je souhaite utiliser deux cellules pour appliquer des critères de filtre. Mais l'utilisation des 2 critères ne permet pas d'obtenir de résultats, seul le 2ème critère est fonctionnel.

Je ne vois pas ou est l'erreur dans la syntaxe .

Bonjour à tous,

Je reviens avec une nouvelle version, mais le deuxième critère (la liste déroulante) ne permet toujours pas de filtrer, en fait les lignes disparaissent dès qu'on applique ce critère, seul ou combiné.

Je ne vois toujours pas le problème.

Bonjour,

Un essai ...

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Range("critère"), Target) Is Nothing And Target.Count = 1 Then
        With ActiveSheet
            .Range("A4").AutoFilter
            If .Range("G2") <> "" Then .Range("$A$3:$C$1000").AutoFilter Field:=3, Criteria1:=.Range("G2")
            If .Range("H2") <> "" Then .Range("$A$3:$C$1000").AutoFilter Field:=2, Criteria1:=.Range("H2")
        End With
    End If
End Sub

ric

Bonjour ric,

c'est magique, vivement que je maîtrise VBA.

Bonjour,

TahitiBoy a écrit :

Bonjour ric,

c'est magique, vivement que je maîtrise VBA.

C'est ce que j'essaie de faire en tentant d'aider les gens ...

ric