Bonjour,


Dans une routine VBA (Excel) j'aimerai trier une liste avec le filtre automatique. Le deuxième critère doit être le suivant :
plus petit qu'une date contenue dans la variable vadate. Cette variable est saisie par l'utilisateur dans un formulaire. Le tri fonctionne très bien si le code est "Criteria1:=vadate" mais je ne sais pas comment saisir le code avec le signe <= (inférieur ou égal à).
Voici la routine

Public vadate As Date
Public txtdatelimite As Date

Private Sub CommandButton1_Click()

ActiveSheet.Unprotect
vadate = DateValue(txtdatelimite)
Range("A3").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:=cmbconseillerimp.Value
Selection.AutoFilter Field:=6, Criteria1:=<=vadate, Operator:=xlAnd 'cette ligne pose un problème
Selection.AutoFilter Field:=8, Criteria1:=""
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Range("A2:i2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Range(Selection, Selection.End(xlToLeft)).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$2000"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Selection.AutoFilter

Unload Userimprime

ActiveSheet.Protect

Range("A3").Select

End Sub

Merci d'avance pour votre aide Configuration: Windows XP
Internet Explorer 6.0