Discussion :

[ekynoxx]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[dadavyvy]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Tu peux tester ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[ekynoxx]

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.

[dadavyvy]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

... ou dans une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ekynoxx]

Cela fonctionne merci bien

[oz2007]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[oz2007]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[oz2007]

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