Bonjour,
voici pour le bouton "Date"
Sub copy_filtre()
Dim sh1, sh2
Dim LastRw As Long
Dim ctr1 As Double, ctr2 As Double
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
LastRw = sh2.Cells(Rows.Count, 1).End(xlUp).Row
ctr1 = sh2.Range("G3")
ctr2 = sh2.Range("J3")
With sh1
.Range("A2:G2").AutoFilter
.Range("A2:G2").AutoFilter Field:=3, Criteria1:=">=" & ctr1, Operator:=xlAnd, Criteria2:="<=" & ctr2
End With
sh2.Range("A8:G" & LastRw).ClearContents
sh1.Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).Copy sh2.Range("A7")
sh1.Range("A2:G2").AutoFilter
Set sh1 = Nothing
Set sh2 = Nothing
End Sub
pour le graphique, la seule chose que je peut vous suggérer est d'utiliser une plage nommée comme source du graphique,
par exemple: nommer la plage de cellule avec cette formule dynamique (la plage s'ajustera automatiquement)
voir au menu, Formules, Gestionnaire de noms
=DECALER(Feuil2!$A$7;0;0;NBVAL(Feuil2!$A:$A);9)