Filtres automatique & vba
Bonjour,
Voici mon petit soucis,
Code:
1
2
3
4
|
DateSup = Format(ComboBox14.Value, "mm/dd/yyyy")
DateInf = Format(ComboBox13.Value, "mm/dd/yyyy")
Cell.AutoFilter Field:=1, Criteria1:=">=" & DateInf, Operator:=xlAnd, Criteria2:="<=" & DateSup |
Je dispose de deux combobox que j'alimente avec des dates qui se trouvent dans une colonne, puis je fais un filtre automatique qui permet de sélectionner les dates se trouvant dans l'intervalle entre DateInf et DateSup
ex : du 15/02 au 25/02
Mon petit problème est que maintenant je souhaiterais rajouter deux autres combobox pour pouvoir sélectionner deux intervalles.
ex : du 15/02 au 17/02 ET du 19/02 au 25/02
J'ai testé ceci :
Code:
1
2
3
4
5
6
|
DateSup = Format(ComboBox14.Value, "mm/dd/yyyy")
DateInf = Format(ComboBox13.Value, "mm/dd/yyyy")
DateSup2 = Format(ComboBox15.Value, "mm/dd/yyyy")
DateInf2 = Format(ComboBox16.Value, "mm/dd/yyyy")
Cell.AutoFilter Field:=1, Criteria1:=">=" & DateInf, Operator:=xlAnd, Criteria2:="<=" & DateSup, Criteria3:=">=" & DateInf2, Operator:=xlAnd, Criteria4:="<=" & DateSup2, |
Mais cela ne marche pas, il semblerait que l'on ait le droit de ne mettre que 2 critères...
Si quelqu'un a des idées...
Merci d'avance
