VBA - Supprimer des lignes Excel en fonction de valeur

Bonjour,

Je souhaite effectuer une macro qui lit la valeur d'une colonne V (à partir de la ligne 2) et supprime la ligne en question si la valeur est inférieure à 2:00:00 (2 heures).

Le problème est que je n'arrive pas à formuler une valeur horaire en VBA, voici mon code:

Sub Supp()

Sheets("Feuille2").Select

Dim n&, i&

n = Cells(65536, 22).End(3).Row

For i = n To 2 Step -1

If Cells(i, 22) < "2:00:00" Then Rows(i).Delete

Next i

Sheets("Feuil1").Select

End Sub

Merci pour votre aide

Natou

Bonjour

Modifiez le code comme ceci

Sub Supp()
Dim n As Long, i As Long
With Sheets("Feuille2")
n = .Cells(65536, 22).End(3).Row
For i = n To 2 Step -1
MsgBox .Cells(i, 22) * 24
 If .Cells(i, 22) * 24 < 2 Then Rows(i).Delete
Next i
End With
End Sub

Si ok et terminé, lors de votre réponse merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Cordialement

Bonjour,

Merci pour votre réponse, en fait je souhaiterais supprimer la Message box, comme je traite beaucoup de données, elle ne m'est pas nécessaire.

A quel niveau dois-je la supprimer?

Merci!

Re

Désolé c'est un erreur de ma part. Juste un contrôle que j'avais placé pour test

Vous supprimez cette ligne --> MsgBox .Cells(i, 22) * 24

Cordialement

Merci !