filtre auto valeur egal en VBA

[regis1973]

Bonjour,

je voudrai adapter ce code pour la valeur egal mais je n'a arrive pas....
Si je supprime le '>' le filtre ne trouve plus rien

datedebut = Range('J15').Value
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:='>=' & DateValue(datedebut) * 1

Merci d'avance

 

[Gérard DEZAMIS]

Bonjour Regis

a tout hasard ....

Criteria1:='='& ....., Operator:=xlOr, Criteria2:='='&......


Mettre les deux critères séparés sur le même filtre

@+GD

 

[ERIC S]

Bonjour

j'ai eu le même pb, je l'avais résolu temporairement comme suit

Selection.AutoFilter Field:=24, Criteria1:='>' & (datemail - 1), Operator:=xlAnd, _
Criteria2:='<' & (datemail + 1)

Et le temporaire dure car j'avoue ne pas m'être repenché dessus

A+

 

[regis1973]

jolie la ruse -1 +1..........ca marche!!!!
Merci

 

[ERIC S]

re

Selection.AutoFilter Field:=3, Criteria1:=Range('C2').Value


a l'air de fonctionner
en c2 j'ai une date avec format cellule
date *14/03/2001

A+