Macro supprimant des dates

Bonjour,

j'ai un petit soucis.

j'ai un gros fichier excel : 8136 lignes

je souhaiterais garder que les lignes ou la date correspond à 2012. Donc supprimer les lignes entières ou il y a 2011 et 2010.

J'ai 29 lignes ayant 2011 et 2010. Je dois donc avoir après suppression 8107 lignes. (edit: 8108 en fait)

quand il y a un vide à la place de la date, il faut laisser la ligne intacte.

j'ai tenté une macro mais elle me supprime plus de chose que prévue 8O je tombe à 6327 lignes. :aie:

voici ma macro qui ne marche pas :

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Application.ScreenUpdating = False For e = Range("C65536").End(xlUp).Row To 2 Step -1 If (Range("C" & e) < CDate("01/01/2012")) Then Rows(e).Delete End If Next e Application.ScreenUpdating = True End Sub

---

Je suis perdue, je sollicite votre aide. :P

merci d'avance à qui voudra bien m'aider :)

Salut,

Question bête : pourquoi ne pas utiliser le filtre déjà présent dans ton fichier ?

Tu peux ainsi filtrer les lignes que tu souhaites conserver ou au contraire celles que tu souhaites supprimer...
Tu peux aussi enregistrer une macro pendant que tu procèdes au filtrage de tes lignes et moyennant de petites adaptations automatiser l'opération.

Bonjour,

en fait je voudrais ne pas utiliser ce filtre, car j'ai plusieurs dizaine de fichier de ce genre là, donc j'aimerais automatiser au maximum :)

Bonjour,

Essaie comme ceci :

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim e As Integer Application.ScreenUpdating = False For e = Range("C65536").End(xlUp).Row To 2 Step -1 If Year(Range("C" & e)) < 2012 And Range("C" & e) <> "" Then Rows(e).Delete Next e Application.ScreenUpdating = True End Sub

---

Bonjour,

merci de votre réponse :)

Je viens de tester la macro et cela me supprime trop de ligne. Je me retrouve à 8072. C'est vraiment étrange 8O

Je vois pas d'ou vient le problème.

Essaie avec ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test_Bis() Application.ScreenUpdating = False For e = 2 To Range("c65536").End(xlUp).Row If (Range("c" & e) < CDate("01/01/2012")) And Range("c" & e).Value <> "" Then Rows(e).Delete e = e - 1 End If Next e Application.ScreenUpdating = True MsgBox "TERMINE" End Sub

---

Bonjour evx,

merci de votre réponse. J'ai testé la votre et même soucis 8O je suis à 8072 lignes.

vraiment bizarre 8O

Je trouve le même résultat que FRING 8072 lignes.

Et je pense que c'est vraiment le résultat

c'est bizarre car à la main j'ai compté 29 lignes ou il y a une date en 2011 et 2010 8O

j'ai supprimé chaque année 2011-2010 à la main et il me reste 1808 lignes au total.

Faites avec un filtre sur 2011 et 2010 et en supprimant les lignes ont arrive bien à 8 072 lignes

ah effectivement avec filtre "inférieur à 01/01/12" cela me met 64 lignes à supprimer.

Donc tout est OK.

Merci beaucoup !!! :D