Discussion :

[CEA FRANCE]

Bonjour,
J'ai un tableau Excel avec une colonne date et une colonne heure.
Dans ma macro, ou même avec le filtre élaboré, je n'arrive pas a filtrer les heures supérieur à 14:00 par exemple.
quand je les sélectionne dans le filtre les heures une par une ça fonctionne par contre avec un filtre automatique personnalisé ça ne donne aucune ligne en résultat.
dans la macro, c'est pareil, j'ai tenté le code suivant :

Code :

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

1
2
3
4
5
 
Crit = heure_fin
LeCrit = CDbl(TimeValue(Crit))
ActiveSheet.Range("$B:$H").AutoFilter Field:=2, Criteria1:= _
       ">=" & LeCrit, Operator:=xlAnd

avec heure_fin=14:00:00
sachant que dans la colonne 2 j'ai bien mes heures que je visualise dans le tableur présenté sous la forme hh:mm:ss
si quelqu'un a la solution je suis preneur.
MERCI

[patricktoulon]

re
bonjour exemple

Code :

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

1
2
3
4
Sub test()
Crit = "10:54:21"
ActiveSheet.Range("A:H").AutoFilter Field:=2, Criteria1:="<" & CLng(LeCrit)
End Sub

edit autant pour moi clng fonctionne avec les dates

Code :

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

1
2
3
4
Sub test()
Crit = TimeValue("10:54:21")
ActiveSheet.Range("A:H").AutoFilter Field:=2, Criteria1:="<" & CDbl(Crit)
End Sub

et M... nuit de garde ca m'a pas fait du bien
bon allez on recomence

donc on filtre les heures supérieurs a 14:00:00 c'est bien ca

Code :

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

1
2
3
4
Sub test()
 Crit = TimeValue("14:00:00")
 ActiveSheet.Range("A:H").AutoFilter Field:=2, Criteria1:=">" & CDbl(Crit)
 End Sub

puré c'est laborieux ce matin

et oui ce qui m'a induit en erreur
le tritre du post
FILTRER "HEURE INFERIEUR A" DANS UN TABLEAU

et après dans la question on a

je n'arrive pas a filtrer les heures supérieur à 14:00 par exemple.

je suis rassuré je suis pas tout seul dans le brouillard

[joe.levrai]

Bonjour,

il s'agit aussi de savoir le .Value exact de la cellule : Est-ce une date complète ou juste les heures.

Car tu peux très bien avoir formaté ta cellule (hh:mm:ss) de sorte que le .text t'affiches uniquement l'heure.

Et suivant le cas, on ne procède pas du tout de la même manière sur le criteria

[Docmarti]

Bonjour.

Peut-etre comme ceci :

Code :

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

ActiveSheet.Range("$B:$H").AutoFilter Field:=2, Criteria1:="<=" & CDate(fin), Criteria2:=">=" & CDate(fin)

[patricktoulon]

bonjour docmarti

heu... encore une fois je comprends pas tes critères tout du moins leur utilité

[Docmarti]

Oups. Je pensais que CEA FRANCE recherchait l'egalite. Je viens de voir qu'il recherche Plus grand ou egal.
Donc ce serait plutot la syntaxe suivante.


Je mets CDate plutot que CDbl car les valeurs dans le range sont de type Date.

Ceci fonctionne :

Code :

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

ActiveSheet.Range("$B:$H").AutoFilter Field:=2, Criteria1:=">=" & Format(CDate(Crit), "h:mm:ss")

Il faudrait que CEA FRANCE envoie un fichier .xlsx avec quelques donnees pour pouvoir etre precis.

[CEA FRANCE]

mauvaise nouvelle, ça ne fonctionne pas (Erreur d'execution 13 : Incompatibilité de type... )
pour détailler le problème, j'ai le code suivant :

Code :

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

1
2
3
 
    Crit = TimeValue(heure_fin)
    LeCrit = CDbl(Crit)

quand je pointe sur Crit en execution pas à pas j'ai Crit="14:00:00" et ça plante sur la ligne suivante...
j'avais déclaré les variables :
Dim Crit As String
Dim LeCrit As Double
est ce ça qui plante ?

ps : ma zone ne contient bien que l'heure. il n'y a pas la date (même en changeant le format d'affichage)

[Docmarti]

bonjour docmarti

heu... encore une fois je comprends pas tes critères tout du moins leur utilité

Je me sers des 2 criteres avec les operateurs ">=" et "<=" pour remplacer l'operateur de comparaison "=" qui ne fonctionne pas pour trouver une date exacte.