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
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
