gmb j'ai essayé d'adapter à ta façon mais ça fonctionne pas le filtre est vide j'ai peut etre fait une erreur pour info j'ai mis un point d'arret
il suffit d'aller dans l'onglet Compte_rendu en dernier
puis cliquer sur sauvegarder compte rendu
vous aurez peut être des bug vu qu'il sauvegarde un fichier dans mes répertoires
[quote="archer"]bonjour
a tester
Private Sub CommandButton1_Click()
Mois = ListBox1.ListIndex + 1
Annee = ListBox2.Value
Choix1 = ">=" & CLng(DateSerial(Annee, Mois, 1))
Choix2 = "<" & CLng(DateSerial(Annee, Mois + 1, 1))
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
ActiveSheet.ListObjects("TableauInterventions").Range.AutoFilter Field:=2, _
Criteria1:=Choix1, Operator:=xlAnd, Criteria2:=Choix2
End Sub
A+
Maurice
bonjour Maurice,
j'ai éssayé d'adapter a mon application mais ca ne fonctionne pas
Dim choix1 As Date
Dim choix2 As Date
choix1 = ">=" & CLng(DateSerial(année, mois, 1))
choix2 = "<" & CLng(DateSerial(année, mois + 1, 1))
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
ActiveSheet.ListObjects("TableauInterventions").Range.AutoFilter Field:=2, _
Criteria1:=choix1, Operator:=xlAnd, Criteria2:=choix2