Filtrer à partir d'une date dans une autre feuille

Bonjour à tous,

Alors voilà pour mon projet tuteuré, j'ai un un fichier excel où sont incrémenté en auto différentes données avec une date, une heure et une valeur.

Ces données sont ensuite intégrées dans un graphique. Je ne suis pas encore un expert en VBA mais bon voici ce qui fonctionne avec la macro :

Sheets("TAB jour").Select

ActiveSheet.Range("$A$1:$C$500").AutoFilter Field:=1, Operator:= _

xlFilterValues, Criteria2:=Array(2, "4/20/2019")

Sheets("Temp").Select

ActiveSheet.Range("$A$1:$C$280").AutoFilter Field:=1, Operator:= _

xlFilterValues, Criteria2:=Array(2, "4/20/2019")

Sheets("Graphique").Select

Et ce que j'aimerai, c'est en étant sur la feuille "Graphique", entrer une date dans une case (ex : "Graphique!A1") et qu'elle soit utilisée pour filtrer dans les deux autres feuilles. Mais j'ai essayé différent truc, j'arrive pas à savoir comment appelé une variable dans le filtrage

Ça me permettra d'améliorer mon projet (pitet quelques points en plus qui sait ^^' )

Je vous remercie d'avance pour votre aide.

Will

Bonjour et bienvenue,

Joins un fichier à ta demande pour une aide adaptée du forum.

Cdlt.

Bonjour,

peux-tu poster un fichier témoin de ce que tu souhaites ?

merci

Bonjour et merci.

Voilà, ce n'est qu'un extrait du fichier.

Oups j'avais pas mis le .xlsm

Sub filtrer()

With Sheets("TAB jour")
    If .Range("A2") = 0 Then
        .ShowAllData
    Else
        .Range("A4").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("A1:A2"), Unique:=False
    End If
End With

With Sheets("Temp")
    If .Range("A2") = 0 Then
        .ShowAllData
    Else
        .Range("A4").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("A1:A2"), Unique:=False
    End If
End With

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    filtrer
End Sub

Oh trop cool! Merci beaucoup

En plus je crois même que j'ai compris quasi tout ce que tu as fais. J'avais pas pensé à cette idée toute bête de récupérer la valeur de avec =Graphique!B1 ... me sens bête ^^'. Mais j'arrivais quand même pas à changer mon Range dans la même page, il échouait.

Je te remercie encore.