Bonjour,

j'essaie de supprimer les lignes d'un tableau en fonction d'une date, par exemple supprimer toutes les lignes d'un tableau dont la date est inférieure au 18/10/2010 01:11:00.

Mais cela ne marche pas, il y a sans doute une façon de faire que je ne connais pas j'ai mis la case à vide et cela fonctionne, donc c'est bien le contenu de la cellule qui n'est pas reconnu.

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sheets("Donnees").Select
NbLignes = ActiveSheet.UsedRange.Rows.Count
Datemin = "18/10/2010 01:11:00"
Dim Ligne As Integer
    For Ligne = 2 To NbLignes
        If Cells(Ligne, 4).Value < Datemin Then Cells(Ligne, 1).EntireRow.Delete
    Next Ligne
End Sub
Merci pour votre aide.