supprimer ligne selon date

[patsyl60]

Bonjour à tous.

Je souhaite dans un tableau supprimer les lignes selon la date . Exemple, dans une stat de ventes produits de l'année 2008, je voudrais faire une feuille uniquement pour le mois de janvier.Je ne trouve pas le code vba correspondant aux dates. Pouvez vous m'aider?

D'avance merci.

Patsyl60 😕

 

[patsyl60]

Re : supprimer ligne selon date

Re bonjour, J'avance doucement ... Voila mon debut de macro :
Sub dat()
Dim x
For x = 2 To 11
Range("b" & x).Select
If ActiveCell.Value > 2 / 1 / 2009 Then ActiveCell.EntireRow.Delete
Next x
End Sub

Mais cela ne fonctionne pas. Cela ne prend pas la bonne date.

Petit fichier exemple en pièce jointe.

Merci de votre aide.

Patsyl60

 

[Pierrot93]

Re : supprimer ligne selon date

bonjour patsyl,

essaye le code ci:dessous :

Sub test()
Dim i As Integer
For i = Range("B65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 2).Value > #1/2/2009# Then Rows(i).Delete
Next i
End Sub

bon dimanche
@+

 

[patsyl60]

Re : supprimer ligne selon date

Merci beucoup Pierrot. Cela fontionne.

Et si je dois supprimer entre deux dates ?

J'ai testé cette formule pour avoir le mois de février uniquement , mais cela ne fonctionne pas :

If Cells(i, 2).Value > #1/31/2009# < #3/1/2009# Then Rows(i).Delete

Peux tu m'aider ?

Patsyl60

 

[Pierrot93]

Re : supprimer ligne selon date

Re

par exemple, pour supprimer tout 2009, essaye comme ceci :

    If Cells(i, 2).Value > #12/31/2008# And Cells(i, 2).Value < #1/1/2010# Then _
        Rows(i).Delete

@+

 

[ChTi160]

Re : supprimer ligne selon date

salut patsyl60
Bonjour le fil
Bonjour le Forum
date de début en Range("D1")
date de fin en Range("E1")

If Cells(i, 2) > [B]Range("D1")[/B] And Cells(i, 2) < [B]Range("E1")[/B] Then Rows(i).Delete

arff salut pierrot

 

[vbacrumble]

Re : supprimer ligne selon date

Bonjour tous


Une autre méthode (avec le filtre automatique)

Sub supprdates()
cda = CLng(DateSerial(2009, 2, 1))
    With Range(Range("B1"), Range("B65536").End(xlUp))
        .AutoFilter 1, ">=" & cda, xlAnd, "<=" & cda
    End With
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub

A+

 

[Pierrot93]

Re : supprimer ligne selon date

Re

pour ne garder que février :

For i = Range("B65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 2).Value < #2/1/2009# Or Cells(i, 2).Value > #3/1/2009# Then _
        Rows(i).Delete
Next i

Edition : Bonjour Jean-Marie🙂, vbascrumble

 

[patsyl60]

Re : supprimer ligne selon date

Merci à tous pour vos réponses. Grace à vous, ma macro fonctionne.

Encore merci pour votre aide.

Patsyl60 😉

 

[vbacrumble]

Re : supprimer ligne selon date

Re tous


En modifiant les critères fournis par Pierrot93
(car sinon il restait le 01/03/09)

Sub supprimedatesentrebornes()
datd = CLng(DateSerial(2009, 2, 1))
datf = CLng(DateSerial(2009, 2, 28))
    With Range(Range("B1"), Range("B65536").End(xlUp))
        .AutoFilter 1, "<" & datd, xlOr, ">" & datf
    End With
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub

A+

 

[Pierrot93]

Re : supprimer ligne selon date

Re

aarf, bien vu vbacrumble, il faut modifier la date comme suit :

> #2/28/2009#

@+

 

[patsyl60]

Re : supprimer ligne selon date

Vous êtes parfaits jusqu'au bout...

Encore merci.

Patsyl60 😉