Suppression de ligne suivant une certaine heure

Bonjour à tous,

Débutant sur VBA, je bloque sur un code. Je m'explique

J'aimerais supprimer des lignes dont l'heure est inférieur à 4:00:00 et supérieur à 21:00:00.

Cette formule pour ligne inférieur à 4:00:00 ne fonctionne pas

Sub sup()

Range("c1").Select

For i = Range("A1:C65535").End(xlUp).Row To 2 Step -1

If Cells(i, 3)"<04:00:00" Then Rows(i).Delete

Next i

End Sub

Merci d'avance pour votre aide

Bonjour,

24 heures dans Excel égale 1

4h00 =4/24

21h00 = 21/24

A mon avis, le code devient :

If Cells(i, 3) <4/24 Then Rows(i).Delete

merci pour ta réponse mais

Lorsque j’insère la ligne

If Cells(i, 3) <4/24 Then Rows(i).Delete

les lignes ayant une heure inférieure à 4:00:00 ne s'efface pas

Ta cellule contient-elle également une date ?

Si tu changes son format tu le verras.

Si c'est le cas il faut également inclure la date dans ta formule.

Bonjour ouisansdoute.

J'ai mis un fichier excel pour mieux comprendre.

Merci

Bonjour,

Essaie avec ce code :

Sub Sup()
For i = ActiveSheet().UsedRange.Rows.Count To 2 Step -1
    If Cells(i, 3) < 5 / 24 Then Rows(i).Delete
Next
End Sub