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

Le
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 ?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #20675781
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 ?



michdenis
Le #20678201
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" :
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 ?
Publicité
Poster une réponse
Anonyme