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

tri selon des heures

  • Initiateur de la discussion Initiateur de la discussion zoidberg
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Z

zoidberg

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

Pièces jointes

  • Ex tab heure.PNG
    3.2 KB · Affichages: 28
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
 
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
 
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 :/
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
830
Réponses
7
Affichages
958
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
576
  • Question Question
Microsoft 365 macro vba sumifs
Réponses
5
Affichages
715
Réponses
11
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…