Filtre elaboré par date

Bonjour,
Je me sert d'un filtre avec des critères multiples sans aucun problème:

Code:

---

1 2 3 4

Sheets("filtre2").Activate Sheets("filtre2").Range("A2").Value = "=" & Critere & "1" Range("ZoneInter").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:I4")

---

Mais lorsque je veux me servir de la date comme critere , je bloque:

Code:

---

1 2 3 4 5

If TxtDate.Value <> "" Then   Critere = Critere & "(intervention!A2 <=""" & CDate(TxtDate.Value) & """) * "   End If

---

Je pense que le probleme vient du format , mais je tourne un peu en rond...

Bonjour,

je ne pense pas qu'avec un filtre élaboré tu puisse utiliser le critère comme tu le fais avec ta date.

Tu dois rester dans le même principe de fonctionnement que dans l'exemple que tu donnes en haut, donc mettre ta valeur date précédée de <= dans une cellule de ton Criteriarange.

Regarde ici pour un peu de théorie.

A+

Pour l'instant ca marche mais pas bien , c-a-d que ca filtre tout (rien de copier), pourtant le critere marche:

Code:

---

=(Intervention!A2 = "14/05/2009") * (Intervention!G2 = "Mickaël.B") * 1

---

theoriquement il devrait copier toutes les lignes du 14/05/2009 , mais non il doit y avoir un probleme entre date et chaine de caractere , et c'est bien la mon probleme le programme cherche le texte "14/05/2009" et pas la date 14/05/2009...

Je sais pas si c'est la meilleure solution mais ca marche:

Code:

---

1 2 3 4 5

If TxtDate.Value <> "" Then Dim a As Long a = CDate(TxtDate.Value) Critere = Critere & "(intervention!A2 = " & a & ") * " End If

---

après plusieurs heures a réfléchir dessus....il faut vraiment que je m'améliore...