Bonjour à tous, j'ai un soucis.

Je dois filtrer des données entre deux dates.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
    StartDate = DateValue(resultat)
    EndDate = DateValue(resultat2)
 
    Range("A1:AE69336").AutoFilter Field:=1, Criteria1:=">=" & StartDate, Operator:=xlAnd, Criteria2:="<=" & EndDate
Je veux créer une boite de dialogue où l'utilisateur entre une date du type "##/##/####"
cette date sera entrée dans la valeur "resultat"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
resultat = InputBox("Entrez la date", "Date de d?but", "jj/mm/yyyy")
Si ce qu'il entre est nul ou différent du format , un message s'affiche et il doit retaper la date avec le bon format.

Une fois que la date de début a été inscrite et que l'on appuie sur le bouton ok, je réalise la même chose pour la date de fin. En n'oubliant pas l'option annuler pour quitter la boite de dialogue.

Merci d'avance pour votre aide!