tri selon des heures

[zoidberg]

Bonjour a tous !

Je vous présente mon soucis du jour..

J'ai un tableau, avec des lignes de données qui contiennent des informations diverses et des heures.
le but serai de supprimer les lignes qui ne sont pas comprissent dans l'intervalle que j'ai demander.

Ex : je voudrais supprimer les lignes qui sont avant 21h

j'ai essayer avec des formules de base mais elles ne fonctionnent pas avec les heures.
Je précise que j'ai bien transformer mes valeurs en faisant (*1).

j'ai fait ceci :

**************
Dim i As Long

For i = 100 To 2 Step -1

If Range("e" & i).Value < "06:00" And Range("e" & i).Value > "07:59" Then Rows(i).Delete

Next i
**************

Il ne ce passe rien quand je compile.
merci d'avance pour votre aide !

 

[CISCO]

Re : tri selon des heures

Bonjour

Il y a au moins un pb dans ton code : l'heure aura du mal à être en même temps inférieure à 6:00 et supérieure à 7:59, n'est-ce pas ?

@ plus

 

[CISCO]

Re : tri selon des heures

Re

Essaye plutôt avec quelque chose du genre

If Range("E" & i).Value < (6 / 24) Or Range("E" & i).Value > (7 / 24 + 59 / 60 / 24) Then Rows(i).Delete

@ plus

 

[zoidberg]

Re : tri selon des heures

Salut,

je n'avais pas vu cette erreur logique de base ... merci à toi.

 

[zoidberg]

Re : tri selon des heures

Re Salut, j'ai repris le fiché sur lequel je travaillais et le problème c'est que le code supprime toutes les lignes.

Problème de format ? d'intervalle ?

voici le code :

Dim i As Long

For i = 1000 To 2 Step -1

If Range("D" & i).Value > (14 / 24 + 30 / 60 / 24) Then Rows(i).Delete

Next i

J'ai également essayer en remplaçant par 14:30 , aucune différence :/

 

[CISCO]

Re : tri selon des heures

Bonjour

Chez moi, cela fonctionne, à un détail près : cela supprime aussi la ligne contenant 14:30. Certainement une histoire d'arrondi.

@ plus

 

[Bebere]

Re : tri selon des heures

bonjour Zoidberg,Cisco
2 codes avec advencedfilter
les heures début et fin en G1 F1