[VBA-E] Utiliser une date dans un filtre saisie au prealable dans une InputBox

Bonjour,

voila, j'ai une macro qui contient a un moment un filtre sur une date.
Etant donne que cette date change presque toutes les deux semaines il m'a ete demande de creer une boite de dialogue avec un masque de saisie pour que l'utilisateur puisse saisir la date a laquelle il souhaite que le filtre commence.

J'ai creer le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9

Sub InputBoxx() Dim StartDate As Date StartDate = Application.InputBox(prompt:="Choose the start date for SAP creation Date") ' On enleve tout eventuel filtre ActiveSheet.AutoFilterMode = False Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:>=StartDate End Sub

---

J'ai un probleme au niveau du superieur ou egal et puis je n'ai pas trouve en cherchant sur le net la possibilite de faire sous Excel un masque facon Access.
Merci d'avance.

Avec l'enregistreur de macro, j'obtiens plutot qqch dans ce genre :

Code:

---

Selection.AutoFilter Field:=1, Criteria1:=">=" & StartDate

---

Tu peux tester ça

Code:

---

Selection.AutoFilter field:=1, Criteria1:=">" & StartDate, Operator:=xlor, Criteria2:="=" & StartDate

---

Je crois que dans l'aide l'explication donnée est assez précise (...)
A+

Edit
J'étais parti d'un code que j'avais... et avais laissé traîner des affaires... J'ai corrigé

Merci bien cela fonctionne,
j'avais pas pense a mettre le signe superieur avec des guillemets comme une chaine de caractere et a concatener.
Si vous avez une idee pour forcer lutiliateur a saisir sous format date ou bien que la macro puisse reperer des lors que ce n'est pas le cas.

Merci d'avance.

Code:

---

If Not IsDate(StartDate) Then Msgbox "Ce n'est pas une date"

---

... ou dans une boucle

Code:

---

1 2 3

Do StartDate = Application.InputBox(prompt:="Choose the start date for SAP creation Date") While not isdate(StartDate)

---

:mouarf:

Cela fonctionne merci bien

Bonjour,

Je rouvre une ancienne conversation. j'ai voulu me servir de ce code pour filtrer à partir d'une date saisie dans la boite de dialogue. Mais dans mon exemple en PJ si je saisie par exemple 20/04/2018 il m'affiche uniquement les ligne du 20/04 et pas les dates postérieurs.
Avez-vous une idée doù peut provenir le problème svp?
Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Macro1() ' ' Macro1 Macro ' Dim StartDate As Date StartDate = Application.InputBox(prompt:="Date à partir de laquelle vous souhaitez traiter les rejets") If Not IsDate(StartDate) Then MsgBox "Ce n'est pas une date" ' On enleve tout eventuel filtre ActiveSheet.AutoFilterMode = False Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter field:=3, Criteria1:=">" & StartDate, Operator:=xlOr, Criteria2:="=" & StartDate   ' End Sub

---

re

Code:

---

Selection.AutoFilter field:=3, Criteria1:=">" & clng(StartDate), Operator:=xlOr, Criteria2:="=" & clng(StartDate)

---

mais je vois pas trop l'interet de filtrer la colonn 3 de une seul ligne puisque ta plage a filtre est "rows("1:1")"
c'est peut etre ca ton soucis ;)

Bonjour,

Code:

---

1 2 3 4 5

dim d   D=Application.InputBox(Prompt:="Date à partir de laquelle vous souhaitez traiter les rejets", Type:=8) If not d then msgbox "Annulation Ok!":exit sub Selection.AutoFilter field:=3, Criteria1:=">" & format(d,"yyyy-mm-dd") , Operator:=xlOr, Criteria2:="=" & format(d,"yyyy-mm-dd")

---

J'ai du coup utilisé ce code mais cette fois cela m'affiche les date ultérieur au 20 avril (date saisie dans l'input box) mais pas la date du 20...il ne prend qu'un seul critère en compte.

Code:

---

1 2 3 4 5 6

Dim StartDate As Date StartDate = Application.InputBox(prompt:="Date à partir de laquelle vous souhaitez traiter les rejets") If Not IsDate(StartDate) Then MsgBox "Ce n'est pas une date" ' On enleve tout eventuel filtre ActiveSheet.AutoFilterMode = False Selection.AutoFilter field:=3, Criteria1:=">" & clng(StartDate), Operator:=xlOr, Criteria2:="=" & clng(StartDate)

---

@dysorthographie j'ai essayé votre code mais cela ne correspond pas non plus au résultat attendu

re
si tu veux tout ce qui est apres startdate evite les select

Code:

---

1 2 3 4 5

dim startdate startdate=cdate("20/04/2018") set maplage=sheets("toto").range(A1:F100") 'filtre la colonne 3 de la plage maplage.AutoFilter field:=3, Criteria1:=">=" & clng(StartDate)

---

merci c'est bien cela qui posait problème top!