XL 2016 Filtre sur Dates ne fonctionne pas Excel VBA

[Aldonanou]

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

 

[Dranreb]

Bonsoir.
Utilisez le bouton code ici, </>, pour reproduire du code.
L'intsruction Set sert uniquement à affecter un objet à une variable, or la propriété Value d'un Range n'en est pas un.

 

[Aldonanou]

Bonjour Dranreb, merci. J'ai trouvé la solution en modifiant les données de la colonne A (date) en appliquant DATEVALUE(SUBSTITUTE ...).