Pb Macro de filtrage auto en Excel 2003
Résolu
LBO
-
LBO -
LBO -
Bonjour,
J'ai un souci d'affichage des données d'un filtre automatique executé à l'ouverture d'un fichier excel.
J'utilise le code suivant :
Private Sub Workbook_Open()
Selection.AutoFilter Field:=7, Criteria1:="<=" & Date, Operator:=xlAnd
End Sub
Mais les données ne s'affichent pas il me faut aller ouvrir à la main le filtre automatique pour valider l'affichage.
En fait la macro fonctionne et fait bien le tri des données mais les lignes restent masquées.
J'utilise Excel 2003 SP3.
Je ne vois pas comment résourdre ce problème.
J'ai un souci d'affichage des données d'un filtre automatique executé à l'ouverture d'un fichier excel.
J'utilise le code suivant :
Private Sub Workbook_Open()
Selection.AutoFilter Field:=7, Criteria1:="<=" & Date, Operator:=xlAnd
End Sub
Mais les données ne s'affichent pas il me faut aller ouvrir à la main le filtre automatique pour valider l'affichage.
En fait la macro fonctionne et fait bien le tri des données mais les lignes restent masquées.
J'utilise Excel 2003 SP3.
Je ne vois pas comment résourdre ce problème.
A voir également:
- Pb Macro de filtrage auto en Excel 2003
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
2 réponses
Bonjour,
Oui, c'est un problème récurrent dans Excel VBA qui ne tient pas compte du format de date "régional" mais qui attends toujours les dates en format américain.
Donc la solution est de formater la date comme ceci :
Selection.AutoFilter Field:=7, Criteria1:="<=" & Format(Date, "mm/dd/yyyy"), Operator:=xlAnd
et ça devrait fonctionner.
A+
Oui, c'est un problème récurrent dans Excel VBA qui ne tient pas compte du format de date "régional" mais qui attends toujours les dates en format américain.
Donc la solution est de formater la date comme ceci :
Selection.AutoFilter Field:=7, Criteria1:="<=" & Format(Date, "mm/dd/yyyy"), Operator:=xlAnd
et ça devrait fonctionner.
A+