Discussion :

[Marine1990]

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 je tombe à 6327 lignes.

voici ma macro qui ne marche pas :

Code :

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

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.

merci d'avance à qui voudra bien m'aider

[Lucorah]

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.

[Marine1990]

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

[fring]

Bonjour,

Essaie comme ceci :

Code :

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

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

[Marine1990]

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

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

[evx136]

Essaie avec ça

Code :

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

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

[Marine1990]

Bonjour evx,

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

vraiment bizarre

[evx136]

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

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

[Marine1990]

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

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

[evx136]

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

[Marine1990]

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

Donc tout est OK.

Merci beaucoup !!!