comment placer le symbole > dans une macro pour un filtre avancé
2 réponses
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 <.
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 <.
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 <.
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 ?
michdenis
Bonjour,
Il y a ceci :
'-------------------------------- Sub Filtre() Dim LaDate1 as date dim LaDate2 as date
'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
'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
'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 ?
Bonjour,
Il y a ceci :
'--------------------------------
Sub Filtre()
Dim LaDate1 as date
dim LaDate2 as date
'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
'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
'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" <garso@discussions.microsoft.com> a écrit dans le message de groupe de discussion
: 88CFB795-4D4B-439D-98B8-813D0A133952@microsoft.com...
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 <.
'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
'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
'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 <.