XL 2016 Filtre sur Dates ne fonctionne pas Excel VBA

Aldonanou

XLDnaute Junior
Bonjour,

J’ai réalisé un formulaire avec une date de saisie automatique sous le format : TextDate.Text = Format(Now(), "short date").

Les données saisies dans ce formulaire sont ensuite enregistrées dans un autre fichier excel Synthèse .

J’ai rajouté un onglet Variable dans le fichier Synthèse qui fait remonter les deux dates de période à sélectionner.

Je dois effectuer un tri d’après la sélection de la DateHebDeb et la DateHebFin de la feuille Variable afin l’appliquer à la colonne A de la feuille Voiture.

Voici le code utilisé :

'Sélection des périodes d'extraction

Dim DateHebDeb, DateHebFin

' Sélection hebdo onglet variable

With Worksheets("Variable")

Set DateHebDeb = .Range("B3").Value

Set DateHebFin = .Range("B4").Value

End With

' Sélection hebdo dans Voiture

With Worksheets("Voiture")

With .Range("A1:E" & Cells(.Rows.Count, "R").End(xlUp).Row)

[A1].AutoFilter Field:=1, _

Criteria1:=">=" & DateHebDeb.Value2, Operator:=xlAnd, _

Criteria2:="<=" & DateHebFin.Value2

End With

End With

Cependant le filtre ne s'applique pas puisque les données de la colonne A de l'onglet Voiture ne sont pas considérées comme une date.

Je ne sais plus comment faire. Quelqu’un aurait-il une idée ?

Merci beaucoup
 

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla