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 : Sélectionner tout - Visualiser dans une fenêtre à part
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