Discussion :

[bosk1000]

bonjour a tous,

j'ai fait un code qui doit effacer une ligne si la date dans une cellule de la colonne E est inférieur à la date indiqué dans une variable

et il ne se passe rien en fait

voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub noel()
Sheets("noel").Select
Range("d1").Select
Dim finperiode As Date, numdl As String, i As Long
finperiode = InputBox("date de naissance maximal") ' pour saisir la date
For i = 2 To Range("a65536").End(xlUp).Row
If Range("e" & i).Value < finperiode Then Rows(i).Delete
Next i
End Sub

merci pour votre aide

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim finperiode
Dim i As Long
finperiode = InputBox("date de naissance maximal") ' pour saisir la date
If finperiode <> vbNullString Then
    If IsDate(finperiode) Then
        finperiode = CDate(finperiode)
        With Sheets("noel")
            For i = .Range("E65536").End(xlUp).Row To 2 Step -1
                If DateDiff("d", finperiode, .Range("e" & i).Value) > 0 Then .Rows(i).Delete
            Next i
        End With
    End If
End If

EDIT: Attention quand même au type de donnée entré par l'utilisateur

[bosk1000]

merci
mon erreur principale est d'avoir fait une boucle d'effacement de ligne en démarant de haut en bas, alors que c'est le contraire