Tri selon une date variable

Bonjour,

Je cherche à trier des données selon une date que l'utilisateur rentrera dans une input_box. Seulement, quand je teste, ça ne garde que les cellules vides...

Voici mon code

Code:

---

1 2 3 4 5 6 7

Dim tata As String Dim LDate As Date tata = InputBox(vbCrLf & vbCrLf & "Quelle date ?", "Selection d'une date") LDate = CDate(tata)   ActiveSheet.Range("$A$1:$X$47544").AutoFilter Field:=10, Operator:= _ xlFilterValues, Criteria2:=LDate

---

J'ai essayé de définir la valeur de l'inputbox comme étant une date, mais cela n'a pas l'air de fonctionner..

Merci d'avance de votre aide

Bonjour,

il est question de tri alors qu'il n'y en a pas dans le code ! (au passage à baliser avec l'icône dédiée #)

De quoi est-il vraiment question ? De trier ou de filtrer ?

__________________________________________________________________________________________
Question bien formulée, solution assurée ! (Robert Durupt)

autant pour moi, je n'ai pas utilisé le bon mot... J'ai effectivement besoin de filtrer selon la date et non de trier..

Code:

---

1 2	Choix$ = InputBox(vbCrLf & vbCrLf & " Date ?", " Sélection d'une date") If Choix > "" Then Columns(10).AutoFilter Field:=1, Criteria1:=DateValue(Choix)

---

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Merci beaucoup, j'ai finalement écrit ça grâce à votre aide et ça marche!

Code:

---

1 2 3 4

choix = InputBox(vbCrLf & vbCrLf & " Quelle Date ?", "Sélection d'une date") Range("A1").Value = choix   If choix > "" Then ActiveSheet.Range("$A$1:$X$47544").AutoFilter Field:=10, Criteria1:=choix

---