Discussion :

[Nicolas Plan]

Bonjour à tous,

Je travaille sur une macro, j'essaye de faire un filtre en ne séléctionnant que les lignes supérieures à une date donnée (J+7).
La syntaxe semble correcte, cependant le filtre ne s'exécute pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.AutoFilter Field:=9, Criteria1:=">=" & Left(Now() + 7, 10), Operator:=xlOr, Criteria2:="="

Si je clique sur "Personnaliser" après le passage de la macro, la sélection du critère est correcte, le problème est juste qu'elle ne s'exécute pas lors du déroulement, et m'affiche uniquement les champs vides.



Merci d'avance pour votre aide.

Cordialement,
Nicolas

[Qwazerty]

Salut
J'ai deja vu passer pas mal de sujet traitant des filtres et des date, tu devrais faire une recherche sur le forum.
La personne ici ne nous a pas fait profité d'une quelconque réponse donc du coup, impossible de savoir si celle qui lui a été apportée était efficace.
En espérant que cela résolve ton problème
A++
Qwaz

[Nicolas Plan]

Bonjour Qwazerty,

Merci pour ta réponse, malheureusement cela ne résoud pas mon problème, j'ai peur de ne pas être assez compétent pour adapter le code fournit Ormonth. En revanche, mon problème semble être le même que celui rencontré par l'auteur du sujet, donc à priori en rapport avec le format.

Quelqu'un aurait peut être une solution ?

Cordialement,
Nicolas

[Qwazerty]

Salut
Essais comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub essaiFiltre()
Selection.AutoFilter Field:=9, Criteria1:=">=" & Format(CStr(Date + 7), "mm/dd/yyyy")
End Sub

Si ça fonctionne et que tu veux plus d'infos dis le moi.

Il faudrait voir un peu plus de ton code afin de supprimer le Selection et le remplacer par les cellules concernées
A++
Qwaz

[pgz]

Bonjour.

Et en supprimant le critère 2 qui a un opérateur, mais pas d'argument?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.AutoFilter Field:=9, Criteria1:=">=" & Left(Now() + 7, 10)

A mon avis, ce n'est pas un problème de date US.
En prime, tu pourrais manipuler ta plage avec autre chose que l'objet Selection...

Cordialement,

PGZ

[Qwazerty]

Salut pgz
J'avais testé de cette manière, mais le filtrage n'est pas bon, toutes les date sont masquée, il semblerait qu'il faille systématiquement passer par un marquage US dans les filtres génère via vba.
L'ayant mentionné au dessus, je ne peu que plussoyé la remarque sur le Selection
a++
Qwaz

[Nicolas Plan]

Parfait, avec ton code cela fonctionne, merci beaucoup Qwazerty.

Bonjour pgz,
Pour répondre à ta suggestion le critère 2 me permet de sélectionner les lignes n'ayant pas de date.

En revanche, à propos de l'objet Selection, vous voulez dire que je peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("A:I").AutoFilter Field:=9, Criteria1:=">=" & Format(CStr(Date + 7), "mm/dd/yyyy"), Operator:=xlOr, Criteria2:="="

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Columns("A:I").Select
    Selection.AutoFilter Field:=9, Criteria1:=">=" & Format(CStr(Date + 7), "mm/dd/yyyy"), Operator:=xlOr, Criteria2:="="

c'est bien ça ?
Quel est l'intêret, la requête s'exécute peut être plus vite c'est ça ?


Merci encore pour votre temps.
Nicolas

[pgz]

Re,

c'est bien ça ?
Quel est l'intêret, la requête s'exécute peut être plus vite c'est ça ?

C'est bien cela. Le fait de faire .Select modifie effectivement la sélection. Si tu veux seulement filtrer, pourquoi sélectionner? En fait les 2 codes ne font pas la même chose, même si dans les 2 cas le résultat "principal" est obtenu.

Tu vois?

PGZ

[Nicolas Plan]

Effectivement, pratique !

Merci

Bien cordialement,
Nicolas

[Nicolas Plan]

Si je peux me permettre de solliciter à nouveaux vos compétences, je souhaiterais ouvrir un message proposant 2 choix (boutons) à l'ouverture du fichier excel :

1. Mise à jour des données
2. Consultation

J'ai beau rechercher ici et sur google, je ne tombe jamais sur ce que je recherche, faute de bons termes je pense.

Je sais déjà crééer une macro en autoexécution, ce que je cherche c'est la syntaxe du style OpenMessage( "Mise à jour des données", "Consultation" )
et à assigner au bouton MAJ ma macro développée précédemment.

Cordialement,
Nicolas Plan

[pgz]

Re,

Tu pourrais utiliser un MsbBox, masi tu n'as pas le choix du texte des boutons. Par contre, tu peux utiliser une UserForm.

PGZ

[Trolls]

Bonjour,

Je vais l'incrusté dans ce sujet je suis désolé
Au fait je doit faire la même chose qu'ici sauf que j'ai une column qui contien des valeur en texte il y en a qui correspondent à des Date et d'autres non.
Ce que je voulais faire c'est en gros je veux filter les lignes qui ont une date qui remonte à plus de 2 ans mon soucis c'est que la colonne contient des valeur hétérogène

voilà ce que j'ai pu faire pour l'instant merci pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Activate()
 
Range("B7").AutoFilter Field:=2, Criteria1:=">=" & Format(DateAdd("yyyy", -2, Now), "dd/mm/yyyy")
 
 
End Sub

[Nicolas Plan]

Pas certain d'avoir tout compris, mais à priori la solution serait de mettre toute ta colonne en format date avant de faire ton filtre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Columns("B:B").NumberFormat = "dd/mm/yyyy"