[Resolu en VBA] - Filtre avancé, utiliser >= et <=

job75

XLDnaute Barbatruc

• 4 Mai 2016

• #2

Re : Filtre avancé, utiliser >= et <=

Bonjour CPK,

Code:

Sub FiltreAvancé()
Dim F1 As Worksheet, F2 As Worksheet, critere As Range
Set F1 = Sheets("histo")
Set F2 = Sheets("HistoFilter")
Set critere = F2.[C1:C2]
critere(2) = "=AND(ROUND(histo!A2,6)>=ROUND(A$2,6),ROUND(histo!A2,6)<=ROUND(B$2,6))"
F1.[A1].CurrentRegion.AdvancedFilter xlFilterCopy, critere, F2.[A5:G5]
'critere = "" 'facultatif
F2.Activate
End Sub

Comme vous le voyez le critère est en HistoFilter!C2.

La fonction ARRONDI/ROUND est nécessaire quand il s'agit de comparer des heures.

A+

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 4 Mai 2016

• #3

Re : Filtre avancé, utiliser >= et <=

Bonjour et merci JOB75, pardon mais...pourquoi l'arrondi est nécessaire ? Les N° de série des heures sont bien des décimaux non ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Mai 2016

• #4

Re : [Resolu en VBA] - Filtre avancé, utiliser >= et <=

Re,

Enlevez les ROUND de la formule : vous ne récupérerez pas la ligne avec 00:22:00

C'est dû au fait que dans les comparaisons d'heures les dernières décimales (15ème, voire 14ème) peuvent être différentes.

A+

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 5 Mai 2016

• #5

Re : [Resolu en VBA] - Filtre avancé, utiliser >= et <=

D'accord, merci

 

Vote positif 0 Vote négatif