Discussion :

[mick_ban]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Godzestla]

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+

[mick_ban]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=(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...

[mick_ban]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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