Filtre Auto sur Date ne fonctionne pas...

[thierry13]

Pourquoi le code ci-dessous (résumé, bien sûr...), ne fonctionne pas... Les formats de cellules sont bien en FR. Une Msgbox des variables permettent de le vérifier, mais on croirait qu'EXCEL utilise un format anglais...

Dim vRechercherMvtsDateOpDu As Variant
Dim vRechercherMvtsDateOpAu As Variant
vRechercherMvtsDateOpDu = ">=" & Range("vnDonneesRechercherDateOpDu")
vRechercherMvtsDateOpAu = "<=" & Range("vnDonneesRechercherDateOpAu")

Selection.AutoFilter Field:=3, Criteria1:=vRechercherMvtsDateOpDu, _
Operator:=xlAnd, Criteria2:=vRechercherMvtsDateOpAu

Si quelqu'un a une idée, ou mieux, la solution... car je craque !!!

Merci d'avance

 

[romfret]

Bjr thierry re le forum,


Tu devrai utiliser l'enregistreur de macros ...

@+, romfret

 

[thierry13]

Bien sûr, le gros pb étant que la plage de date n'est pas connue... vu que le choix est laissé à l'utilisateur, donc obligation de passer par des variables !

 

[romfret]

Bjr....



Ah ok dsl, je ne vois pas alors .... :s:s


@+, romfret

 

[jjj]

j'ai aussi un problème de filtre mais filtre élaboré cette fois .

Excel ne me renvoie aucune valeur, ni même de message d'erreur .
quelqun pourrait il m'apporter un complément d'information sur les filtres

 

[thierry13]

Pour poursuivre et conclure mon sujet, voici la macro qui fonctionne...


Dim vRechercherMvtsDateOpAu As Variant
Dim ccRechercherMvtsTypeOp As Variant
vRechercherMvtsDateOpDu = Range("vnDonneesRechercherDateOpDu")
vRechercherMvtsDateOpAu = Range("vnDonneesRechercherDateOpAu")

If ccRechercherMvtsDateOp = "Vrai" Then
Selection.AutoFilter Field:=3, Criteria1:=vRechercherMvtsDateOpDu, _
Operator:=xlAnd, Criteria2:=vRechercherMvtsDateOpAu
Else
Selection.AutoFilter Field:=3
End If

Les variables sont des données avec une concaténation de >= ...Du
et <=... Au

Enfin si un besoin d'informations complémentaires se faisait sentir sur un tri date période choisi par l'utilisateur, n'hésitez pas, maintenant j'ai compris 🙂