VBA Filtrer par rapport à une cellule

Le 05/03/2013 à 13:52

Bonjour,

J'ai essayé plusieurs codes pour filtrer une colonne par rapport à une date dans une cellule d'un autre onglet mais sans succès. Le filtre s'applique mais il n'y a pas pas les valeurs ! ( Si je clique sur le filtre mis en place, il est en "Filtre personnalisé" et non pas dans "la catégorie "Avant le..." Quelqu'un a une idée ? Ci-dessous, l'un des codes utilisés :

Sub TRI1()

Sheets("Feuille").Select
Dim QA As String
QA = Worksheets("Bilan").Range("K4").Value
ActiveSheet.Range("A1").AutoFilter Field:=8, Criteria1:="<=QA"

End Sub

Le 05/03/2013 à 14:47

ActiveSheet.Range("A1").AutoFilter Field:=8, Criteria1:="<=" & QA ( petite erreur ).

Il y a bien la date dans le filtre personnalisé mais les valeurs ne s'affichent pas. Il faut que je valide à nouveau pour que cela fonctionne. J'ai également essayé de déclarer QA as Date, sans succès.

Le 05/03/2013 à 21:22

Up si je peux me permettre

Le 05/03/2013 à 23:26

Bonsoir

Sans fichier

essayes ceci

Sub TRI1()
  Sheets("Feuille").Select
  ActiveSheet.Range("A1").AutoFilter Field:=8, _
          Criteria1:="<=" & CSng(Sheets("Bilan").Range("K4"))
End Sub

Le 06/03/2013 à 07:55

ça fonctionne à merveille.

Après avoir tout essayé pendant des heures...

Merci bcp Banzai64