Discussion :

[dybmans]

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.

[NEC14]

Ton format date est-il bon dans tes cellules ?
Il faut qu'il soit rigoureusement exact par rapport à celui de ton code.

[dybmans]

J'ai rajouter la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Datemin As Date

[Jean-Philippe André]

salut,

regarde cet exemple de la qui donne la bonne syntaxe de'une variable Date
http://access.developpez.com/faq/?pa...alcDureeSoustr

[dybmans]

Le code suivant fonctionne mais je dois cliquer 6 fois avant d'arriver au résultat d'enlever toutes les lignes avec la date > 18/10/2010 8:00 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sheets("Donnees").Select
NbLignes = ActiveSheet.UsedRange.Rows.Count
Dim Datemin As Date
Datemin = "18/10/2010 8: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

Est-ce que quelqu'un sais où je me suis trompé dans ma boucle ?

Merci par avance

[mercatog]

Parce qu'il faut commencer du bas vers le haut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Ligne = NbLignes To 2 Step -1
        If Cells(Ligne, 4).Value > Datemin Then Cells(Ligne, 1).EntireRow.Delete
    Next Ligne

[dybmans]

Je viens de corriger le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sheets("Donnees").Select
NbLignes = ActiveSheet.UsedRange.Rows.Count
Sheets("procedure").Select
Dim Datemin As Date
Dim Datemax As Date
Datemin = Cells(12, 8).Value
Datemax = Cells(14, 8).Value
Sheets("Donnees").Select
Dim Ligne As Integer
    For Ligne = NbLignes To 2 Step -1
        If Cells(Ligne, 4).Value < Datemin Then Cells(Ligne, 1).EntireRow.Delete
        If Cells(Ligne, 4).Value > Datemax Then Cells(Ligne, 1).EntireRow.Delete
    Next Ligne
End Sub

La solution que tu propose fonctionne mais je n'arrive pas à récupérer les dates d'un autre onglet en I12 et I14.

Je te fournis le fichier se sera plus facile pour voir le code et l'erreur c'est mon bouton 5 dans l'onglet procédure.