Suppression de ligne conditionnée

[Marm]

Bonjour,

Je récupère un fichier sur mon bureau que je dois traiter. Le but est de supprimer chaque ligne jusqu'à ce que la valeur atteinte en A1 soit 18:00:00
J'ai fait le code suivant en fonction d'autres fils du forum, mais ça ne fonctionne pas... Pourriez vous m'indiquer d'où vient mon erreur?
Merci !

Sub TraitementDonnées()
Dim i As Integer

Application.Workbooks.Open ("D:\Documents and Settings\Marm\Bureau\Produits.xls")
    Columns("B:B").Select
        Selection.Delete Shift:=xlToLeft
    Columns("C:C").Select
        Selection.Delete Shift:=xlToLeft
    For i = 1 To 50
        If Range("A1").Value <> "18:00:00" Then Range("A1").EntireRow.Delete
    Next i
    
End Sub

 

[mromain]

Re : Suppression de ligne conditionnée

bonjour Marm,

je pense qu'il faut déjà remplacer
If Range("A1").Value <> "18:00:00" Then Range("A1").EntireRow.Delete
par
If Range("A1").Text <> "18:00:00" Then Range("A1").EntireRow.Delete

car Range("A1").Value=0.75 et Range("A1").Text = "18:00:00"

a+

 

[Marm]

Re : Suppression de ligne conditionnée

Bien vu mromain !! Ca fonctionne nickel. Le diable est dans les détails
Merci