Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Filtre Auto sur Date ne fonctionne pas...

  • Initiateur de la discussion thierry13
  • Date de début
T

thierry13

Guest
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
 
T

thierry13

Guest
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 !
 
J

jjj

Guest
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
 
T

thierry13

Guest
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…