Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

comment placer le symbole > dans une macro pour un filtre avancé

2 réponses
Avatar
garso
Avec Office 2007, je dois faire un filtre avancé pour trouver un intervalle
de date, je dois utiliser les opérateurs (plus grand) > et (plus petit) <.
Manuellement, tout fonctionne parfaitement. Si je crée une macro pour
exécuter la commande, il ne reconnaît pas les opérateurs > et <.

Que faire ?

2 réponses

Avatar
isabelle
bonjour gasco,

par exemple :

Selection.AutoFilter Field:=1, Criteria1:=">2009-02-11",
Operator:=xlAnd, Criteria2:="<2009-02-28"

isabelle

garso a écrit :
Avec Office 2007, je dois faire un filtre avancé pour trouver un intervalle
de date, je dois utiliser les opérateurs (plus grand) > et (plus petit) <.
Manuellement, tout fonctionne parfaitement. Si je crée une macro pour
exécuter la commande, il ne reconnaît pas les opérateurs > et <.

Que faire ?



Avatar
michdenis
Bonjour,

Il y a ceci :

'--------------------------------
Sub Filtre()
Dim LaDate1 as date
dim LaDate2 as date

ladate1 = CDate(DateSerial(2003, 6, 25))
LaDate2 = CDate(DateSerial(2003, 7, 25))

'Le 5 signifie le champ 5 (colonne 5) de la plage
With Range("A1").CurrentRegion
.AutoFilter Field:=5, Criteria1:=">" & _
Format(ladate1, "mm/dd/yy"), _
Operator:=xlAnd, Criteria2:="<" & _
Format(LaDate2, "mm/dd/yy")
End With

End Sub
'--------------------------------

Il y a aussi ceci :
'--------------------------------
Sub Filtre1()
Dim LaDate1 as date
dim LaDate2 as date

ladate1 = CDate(DateSerial(2003, 6, 25))
LaDate2 = CDate(DateSerial(2003, 7, 25))

'Le 5 signifie le champ 5 (colonne 5) de la plage
With Range("A1").CurrentRegion
.AutoFilter Field:=5, Criteria1:=">" & ladate1 *1 & _
Operator:=xlAnd, Criteria2:="<" & LaDate2 * 1
End With

End Sub
'--------------------------------

Sub Filtre2()
Dim LaDate1 as Long
dim LaDate2 as Long

ladate1 = CDate(DateSerial(2003, 6, 25))
LaDate2 = CDate(DateSerial(2003, 7, 25))

'Le 5 signifie le champ 5 (colonne 5) de la plage
With Range("A1").CurrentRegion
.AutoFilter Field:=5, Criteria1:=">" & LaDate1 & _
Operator:=xlAnd, Criteria2:="<" & LaDate2
End With

End Sub






"garso" a écrit dans le message de groupe de discussion
:
Avec Office 2007, je dois faire un filtre avancé pour trouver un intervalle
de date, je dois utiliser les opérateurs (plus grand) > et (plus petit) <.
Manuellement, tout fonctionne parfaitement. Si je crée une macro pour
exécuter la commande, il ne reconnaît pas les opérateurs > et <.

Que faire ?