Filtre avancé avec critère d'autres cellules

Bonjour à tous,

Je débute en VBA excel et je rencontre depuis quelques jours une difficulté avec le filtre avancé :

J'ai réalisé une macro avec un filtre avancé -> aucun problème.

J'ai changé la valeur des cellules de critère en rajoutant en début de macro un "worksheets.range("cellule critère du filtre")=worksheets.range("mes critères").

Le contenu de mes cellules change bien mais le filtre avancé ne veut plus fonctionné et sort juste la première ligne

mon code:

Sub Macro2()
'
' Macro2 Macro
'

Worksheets("feuil1").Range("A26") = Worksheets("feuil2").Range("B5") 'entre le statut opérateur'
Worksheets("feuil1").Range("B26") = Worksheets("feuil2").Range("C3") 'entre l'équipe'

With Sheets("feuil1")
  Range("A3:D18").AdvancedFilter xlFilterCopy, CriteriaRange:=Range("A25:B26"), CopyToRange:=Range("A30:D42"), Unique:=False
  End With
End Sub

Je n'arrive pas à savoir ce qui cloche. j'espère avoir été assez clair.

Je vous remercie d'avance pour votre aide.

le fichier:

8public.xlsm (31.09 Ko)

Hello,

Ton code est correct.

L'erreur se situe pas dans le code mais dans tes feuilles...

Indice : Liste

R@g

Yes merci à toi c'était bien le problème.

Mais du coup ça veut dire que l'on ne peut pas passer par un filtre avancé avec une liste déroulante comme critère ?

Tu n'as pas trouvé le problème alors ...

Tu peux faire un filtre avancé avec une liste déroulante, mais il faut que ta liste soit cohérente avec ton filtre...

Dans ton cas tu as une différence alors le programme ne trouve pas ...

Regarde ton filtre et ta liste de + près.

Tout ça pour un espace alors ! j'suis dégoûté

Merci bien en tout cas, tout fonctionne parfaitement !

Oui les espaces sont a proscrire...

Rechercher des sujets similaires à "filtre avance critere"